Program test;
const N = 10;
var i:integer;
a,b,c:array [1..N] of integer;
begin
for i:=1 to N do
begin
a[i]:=random(1,100);//если хочеш ввести с клавы напиши вместо строки readln(a[i]);
b[i]:=random(1,100);//если хочеш ввести с клавы напиши вместо строки readln(b[i]);
end;
for i:=1 to N do
beginif a[i]>b[i] then c[i]:=a[i]-b[i]
else c[i]:=b[i]-a[i];
write(c[i],' ');
end;
end.
Не существует деревянной клавиатуры
Примерно так будет выглядеть блок-схема, результат работы программы и сама программа:
Program Age;
uses crt;
var A, M, P, Ma, Pa: integer;
begin
write('Введите Ваш возраст: ');
read(A);
write('Введите возраст мамы: ');
read(M);
write('Введите возраст папы: ');
read(P);
Pa := P - A;
Ma := M - A;
writeln('Возраст мамы, когда Вы родились: ', Ma);
writeln('Возраст папы, когда Вы родились: ', Pa);
end.
Var
i,n:integer;
IsOdd,IsEven:boolean;
begin
IsOdd:=false; IsEven:=false;
Write('Введите три числа: ');
for i:=1 to 3 do
begin
Read(n);
if n<>0 then
if (n mod 2)=0 then IsEven:=True
else IsOdd:=True
end;
Write('Среди введенных чисел ');
if IsOdd then Write('есть нечетное')
else Write('нет нечетных');
if IsEven then Write(' и есть четное')
else Write('и нет четных')
end.
<em><u>Тестовое решение:</u></em>
Введите три числа: 5 8 3
Среди введенных чисел есть нечетное и есть четное
У крестиков два выигрышных поля.
1) Среднее поле
2)Верхний правый угол