Var
s,i : integer;
begin
s :=0;
for i := 2 to 6 do
s := s + sqr(i);
writeln (s);
end.
Язык программирования: Паскаль
var
a, b, c, min : integer;
begin
readln (a);
readln (b);
readln (c);
min := a;
if b < min then
min := b;
if c < min then
min := c;
writeln (min);
end.
Надо ввести новую переменную, например y, присвоить её к 1: y:=1
Дальше, в первой задаче ничего не трогаем, во второй пишем: if b=4 then writeln (....) and y:=y+1 else ....
И тоже самое пишем в 3 задаче ( and y:=y+1 ), т.е., если он ответит на все вопросы правильно,то у будет равняться 5, ну и в конце пишем "врайтлн у" и всё))
Если 2 это делитель 7 то:7:2=3( ост.1)
Если сомневаешься то посмотри подсказку:
Делимое (7); делитель(2); частное(3); и остаток (1).