hello
?>

Выберите вариант в которм величина обьемов памяти по возростанию 1.768байт, 12кбит, 20кбайт, 1мбит, 2000бит 2.1мбит, 768байт, 12кбит, 2000бит, 20кбайт 3.768байт, 20кбайт, 2000бит, 12кбит, 1мбит 4. 2000 бит, 768байт, 12кбит, 20кбайт, 1мбит

Информатика

Ответы

Vasileva

4ое там правильно точно

Less2014

Задача 1

var

 y, x: integer;// Объявляем переменные типа Integer

begin// Начало блока

 writeln('Введите X: '); //Выводим текст на экран

 read(x); //Читаем значение введеное с кливиатуры и записываем его в переменную

 y := 7 * x * 2 - 3 * x + 6; //Выолняем выражение

 writeln('Результат: ', y);// Выводим результат

end. // конец блока

Задача 2:

var

 a, b, c: integer;//Объявление переменных

begin

 write('Введите длину ребра куба '); //Вывод текста на экран

 read(a); //Читаем значение введеное с клавиатуры

 b := a * a * a; //Вычисляем объем куба

 c := 6 * sqr(a); //Sqr - квадрат числа

 {Далее опять же вывод результата}

 writeln('Объём куба равен ', b);

 writeln('Площадь боковой поверхности куба равна ', c);

end.

Задача 3

var

 k: integer;//Объявление переменных

begin

 write('Введите число: '); //Вывод текста на экран

 read(k); //Читаем значение введное с клавиатуры

 if Odd(k) then //Odd - возвращает True - если значение нечетно и False если четно

   writeln('Нечетное')

 else

   writeln('Четное');

end.

Задача 4:

var

 a, b: integer;

begin

 writeln('Введите a и b через пробел:');

 readln(a, b);

 if (b mod a = 0) then writeln('Число ', a, ' является делителем числа ', b)  

 else writeln('Число ', a, ' НЕ является делителем числа ', b);

end.

Задача 5:

var

 a, b: real;

begin

 writeln('Через пробел введите 2 числа: ');

 read(a, b);

 if a > b then //Условие если А больше Б

 begin

   a := a / 2; //Делим число А на 2 и выводим результат

   writeln('A:= ', a, ' B:= ', b);

 end

 else //Иначе оставляем все как и было

   writeln('A:= ', a, ' B:= ', b);

end.

Tatyana_Minullina
Нужно, чтобы при выводе переменная a = 4, b = 0. Алгоритм работает так: к "a" прибавляет единицу при условии, что оно четное, к "b", если нечетное. Поэтому нужно найти число, которое четырехзначное и четное, учитывая, что после каждого прогона цикла, число делят на 10, то есть "отсекают" последнюю цифру числа.

У меня получилось минимальное - 2000.

1)
c = 2000 mod 2;
c = 0 -> a = 0 + 1.
x = 2000 div 10.
2) c = 200 mod 2;
c = 0 -> a = 1 + 1.
x = 200 div 10.
3) c = 20 mod 2.
c = 0 -> a = 2 + 1.
x = 20 div 10.
4) c = 2 mod 2.
c = 0 -> a = 3 + 1.
x = 2 div 10.

Итого на выводе получаем (4 0), что и нужно было.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Выберите вариант в которм величина обьемов памяти по возростанию 1.768байт, 12кбит, 20кбайт, 1мбит, 2000бит 2.1мбит, 768байт, 12кбит, 2000бит, 20кбайт 3.768байт, 20кбайт, 2000бит, 12кбит, 1мбит 4. 2000 бит, 768байт, 12кбит, 20кбайт, 1мбит
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

kartyshkinaaa
Павел_Перелыгин
a1rwalk3r
Araevich
MIKhAILOVNAAnton
МАМОНОВА-андрей
Dmitrychekov9
karpovaveronika196
shajmasha
Mikhailova
Жукова_Петрович1281
perova-s200
yurick2071488
merzlikinairena
Жукова_Петрович1281