Var a,b: array[0..19] of Integer;
i: Integer;
begin
for i:=0 to 19 do
begin
a[i]:=random(5)+1;
b[i]:=random(5)+1;
end;
for i:=0 to 19 do
begin
if a[i]=b[i] then writeln('Номер: ',i,', значение: ',a[i]);
end;
end.
Var s:string;
begin;
writeln('Ваш пол?');
readl(s);
if (s='мужской') then
writeln('Вы-защитник отечества');
if (s='женский') then
writeln('Вам не повезло - женцины не служат в армии');
end.
Шаг 1: I=1, S=S+I=0+1=1
шаг 2: I=2, S=1+2=3
Тело цикла: S:=S+I
S=3
Простой калькулятор на pascal
Pascal
//////////
var
a, b:Integer;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
writeln('Ваш результат сложения:', a + b);
writeln('Ваш результат вычитания:', a - b);
writeln('Ваш результат умножения:', a * b);
writeln('Ваш результат деления:', a / b);
end.
Для того чтобы хранить информацию поступающую в компьютер путем внешнего воздействия