Ответ: 5
В первый раз при прохождении цикла i = 0, затем проверяется верно ли, что i<2 (а это верно) и начинается выполние цикла, пока i<2.
После первой итерации:
i = 1
S = 1
После второй итерации:
i = 2
S = 5
Третья итерация не начнётся, т. к. i = 2, что не удовлетворяет условию цикла.
P. S. итерация - это один шаг в цикле
Блок-схема алгоритма - в прилагаемом файле.
Uses crt;
varb,h,S:real;
begin
writeln('Поиск площади треугольника по стороне и высоте');
writeln();
write('Введите длину стороны в основании треугольника - ');
readln(b);
writeln();
write('Введи высоту треугольника - ');
readln(h);
writeln();
S:=(b*h)/2;
writeln('Ответ: ',S);
end.
Var
a,b,c,d:integer;
begin
writeln('Введите трехзначное число: ');readln(a);
b:= a div 100;
c:= a mod 100 div 10;
d:= a mod 10;
if (b mod 2 = 0)and(c mod 2 = 0)and(d mod 2 = 0)
then writeln('yes')
else writeln('no');
end.
А) 6кб=48000бит
б) 12кб=1536байт=12288бит
в)0,001536гб=1536кб=1536000байт