Линейная структура на языке <u>Pascal</u>
Нахождение расстояния
var V,S,t:real;
begin
readln(V,t);
S:=V*t;
writeln(S);
end.
Ветвление
var a,b:integer;
begin
readln(a,b);
if (a>b) then writeln('+++') else
writeln('---');
readln;
end.
Цикл
var i:integer;
begin
for i:=1 to 5 do writeln(i);
readln;
end.
1) 1 4 7
2) 1 число больше второго на 3
3) 1 число больше второго на 3 а второе число больше третьего на 2
4) ,5) 7 4 1 потому что надо делать всё на оборот пункту 2
6) Конец.Ты молодец !!!
И я молодец !!!
1. 32 * 40 * 48 = 61440 символа
8 бит = 1 байт
ответ: 61440 байт
2. 16 * 30 *32 = 15360 символов
16 бит = 2 байта
ответ 15360 * 2 = 30720 байт
3. 14 * 36 * 64 = 32256 символа
ответ 32256 * 2 = 64512 байта