Информатика(pascal): составить программу которая запрашивает пароль (трёхзначное число), а после четырёх неправильных попыток выдаёт результат,,вы-чужой,, и прекращает работу.
Program znanija; var count, key, pass:integer; begin pass:=1234; while count <= 3 do begin Inc(count); readln(key); if key = pass then count:=5 else writeln('Попробуйте снова'); end; end.
Program p1; const n=10; var a:array [1..n] of real; i:byte; max:real; nmax:byte; begin //начало цикла ввода For i:=1 to n do //ввод Readln(a[i]) //берём за максимальный 1ый элемент max:=a[1]; //берём количество = 1 nmax:=1; / /начало цикла проверки For i:= 2 to n do if a[i]> max then begin max:=a[i]; nmax:=1; end else if a[i]= max then nmax:=nmax+1; //вывод Writeln('Максимальный элемент = ', max,', количество таких элементов = ',nmax); end.
Program p; var ch:real; i:integer; begin ch:=65000; For i:= 1993 to 2013 do begin ch:=trunc(ch*1.03); Writeln('Численность населения в году №',i+1,' равна ',ch); end; end.
Для любых данных
Program p; var year,y1:integer; ch:real; i:integer; begin Write('Введите начальный год: '); Readln(year); Write('Введите конечный год: '); Readln(y1); Write('Введите число населения: '); Readln(ch); For i:= year to y1-1 do begin ch:=trunc(ch*1.03); Writeln('Численность населения в году №',i+1,' равна ',ch); end; end.
var count, key, pass:integer;
begin
pass:=1234;
while count <= 3 do begin
Inc(count);
readln(key);
if key = pass then
count:=5
else
writeln('Попробуйте снова');
end;
end.