1. даны три целых числа а, в, с. найти их сумму, произведение, а также разность между а и в и частное чисел в и с. 2. даны два числа а и в. найти на сколько первое число меньше второго.

АлiнаКукушкiна АлiнаКукушкiна    2   23.06.2019 04:20    33

Ответы
гуля429 гуля429  19.07.2020 06:49
Если нужны программы на Паскале, то держи. Во втором, правда, не учитывается то, что числа могут быть равны. Если это сделать, то будет лишним палевом перед преподом, думаю)

№1

var A, B, C, sum, razn, proizv: integer; chastnoe: real;
label undf;
begin
undf: writeln('Введите А:');
readln(A);
writeln('Введите B:');
readln(B);
writeln('Введите C:');
readln(C);
sum := A + B + C; // находим сумму АВС
proizv := A * B * C; // находим произведение АВС
razn := A - B; // находим разность А и В
chastnoe := B / C; // находим частное В и С
writeln('Сумма А, В, С: ', sum);
writeln('Произведение А, В, С: ', proizv);
writeln('Разность А и В: ', razn);
writeln('Частное В и С: ', chastnoe);
end.

№2

var A, B, razn: integer;
begin
write('Введите А: ');
readln(A);
write('Введите B: ');
readln(B);
razn := abs( A - B );
if A < B then writeln('Первое число меньше второго на ', razn)
else writeln('Первое число больше второго на ', razn);
end.
ПОКАЗАТЬ ОТВЕТЫ
лолололололпке лолололололпке  19.07.2020 06:49
Задача 1 
begin
var
a,b,c : integer;
readln ( a,b,c);
writeln (a+b+c);
writeln (a*b*c);
writeln ( a-b);
writeln ( b/c);
end.

Задача 2
begin
var
a,b : integer;
readln ( a,b);
if a>b then writeln (a/b);
if b>a then writeln (b/a);

end.

Ах, а блок-схема? Сам сможешь сделать?
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика