1 программа:
var x, y, t:integer;
begin
for x:=3 to 15 do begin
writeln('x = ', x);
t := x - 2;
y := 7*t*3-6*t+10;
writeln('y = ', y);
writeln('');
end;
end.
2 программа:
const pass ='45xlua';
var x:string;
a:boolean;
begin
a:= false;
while a<>true do begin
writeln('Введите пароль');
readln(x);
if x = pass then begin
a:=true;
writeln('Пароль верный');
end
else
writeln('Пароль неверный, введите еще раз');
writeln('');
end;
end.
4 программа:
var a, a1, a2, x, kol:integer;
begin
writeln('Введите четырёхзначное число');
readln(a);
x := a;
while x<>0 do begin
x:= x div 10;
kol:= kol + 1;
end;
if (kol = 4) then begin
a1 := a div 100;
a2:= a mod 100;
writeln(a1+a2);
end
else
writeln('Число не является четырёхзначным');
end.
1) ответ d - 288 байт
3) ответ b - 360000 символов
а вот со 2 проблемы. ASCII, или КОИ-7 - на 1 символ отводилось 7 бит. При этом национальные кодировки (в частности, русская) были возможны только вместо строчных латинских букв. Да и то, только прописные буквы.
Расширенный ASCII, или КОИ-8 - 8-битное кодирование.
В пословице, если написать ее правильно, 26 символов. Так что, ни один из ответов не подходит. Или условие неверно переписано, или это умышленный вопрос без ответа. Где-то так...
Или я безнадежно туплю, но сомневаюсь, что это так))