Задачка 1. Даны три целых числа А, В, С. Найти их

напишите что нибудь плиз

не то

это не изучали

мы задачи такие через дано писали результат ввод вывод

и что?

значит всё таки необходимо сделать блок-схему?

ну походу я то не знаю это ты знаешь

Школьный дурдом: пробовать загнать программирование в неразумные рамки "Дано..."

В профессиональной среде такое программирование именуется "г...окод".

Задачка 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 agt;b then writeln (a/b);
if bgt;a then writeln (b/a);

end.

Ах, а блок-схема? Сам сможешь сделать?

Если необходимы программки на Паскале, то держи. Во втором, правда, не учитывается то, что числа могут быть одинаковы. Если это сделать, то будет лишним палевом перед преподом, размышляю)

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 := абс( A - B );
if A lt; B then writeln('Первое число меньше второго на ', razn)
else writeln('1-ое число больше второго на ', razn);
end.