Albina
?>

Заполните таблицу, указав, названия программ, которые необходимы людям в приведенных ситуациях.

Информатика

Ответы

UvarovAndrei

Задача 1:

var a,b: real;

var c: char;

begin

write('Введите a: ');

readln(a);

write('Введите b: ');

readln(b);

write('Введите нужную операцию (+,-,*,/): ');

readln(c);

if (c='+') then writeln('Результат: ',a+b)

else if (c='-') then writeln('Результат: ',a-b)

else if (c='*') then writeln('Результат: ',a*b)

else if (c='/') then writeln('Результат: ',a/b);

end.

Задача 2:

var a: integer;

begin

write('Введите количество кроликов: ');

readln(a);

write('Количество морковок: ',3*100+a*2);

end.

Задача 3:

var a: integer;

begin

write('Введите число: ');

readln(a);

write('Последняя цифра числа: ',a mod 10);

end.

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

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

Заполните таблицу, указав, названия программ, которые необходимы людям в приведенных ситуациях.
Ваше имя (никнейм)*
Email*
Комментарий*

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

Kulikov1065
saniopt
Galliardt Sergeevna1284
chapaevval
jurys71242
spikahome
emilmishin1032
An-solomon
okovyrova1
akinin95
kenni19868
ЛАРИСА Насоновская231
Emasterova77
volchek01112240
lokos201272