Var a,b,c,i:integer;
begin
i:=0;
Write('1-число='); Readln(a);
Write('2-число='); Readln(b);
Write('3-число='); Readln(c);
if a=0 then i:=i+1;
if b=0 then i:=i+1;
if c=0 then i:=i+1;
Writeln(i,' чисел равных нулю');
end.
Задание №1:
program Program1;
var a, b, c, d, S1, S2: real;
begin
writeln('Введите значения a и b:');
readln(a, b);
S1 := a * b;
S2 := S1 / 6;
writeln('Введите значение c:');
readln(c);
d := S2 / c;
writeln('Вторая сторона второго прямоугольника = ', d);
end.
Задание №2:
1 итерация цикла: S = 3
2 итерация цикла: S = 21
3 итерация цикла: S = 81
Ответ: 81.
Система – это целое, состоящее из частей, взаимосвязанных между собой.
Материальная - машина и вселенная
Нематериальная - запись формулы
Смешанная - школа и армия