На схеме цифрами указана очередность выводов.
1. Саша делал модель самолета "Су".
2. Саша делал модель из белой пластмассы.
3-5. Получилось три модели "Ту" и одна "Су", следовательно остальные делали модели "Ту".
6. Саша и Андрей делали модели из пластмассы разного цвета, следовательно Андрей делал модель и серой пластмассы.
7. Саша и Толя делали модели из пластмассы разного цвета, следовательно Толя делал модель и серой пластмассы.
8. Двое делали модели из белой пластмассы, а двое из серой. Следовательно, Витя делал модель из белой пластмассы.
var a:array [1..100] of integer;
i,n:integer;
s:string;
Begin
randomize;
for i :=1 to 100 do
begin
a[i]:= random(1000)+1000;
a[i]:=a[i] mod 100;
a[i]:=a[i] div 10;
if a[i] mod 2 = 0 then n=n+1;
end;
writeln(n);
End.
Ответ, в текстовом виде не прикладывается
Var
ch, otvet, i: longint;
begin
for i := 1 to 5 do
begin
ReadLn(ch);
otvet := otvet + ch;
end;
WriteLn(otvet);
end
Program dlksjijh;
var
A: array[1..40] of integer;
i: integer;
begin
randomize;
writeln('исходные данные:');
for i := 1 to 40 do
begin
A[i] := Random(21);
write(A[i], ' ');
end;
writeln;
writeln('преобрезованный массив:');
for i := 1 to 40 do
begin
if A[i] mod 2 = 0 then
A[i] := Round(A[i]/2)
else
A[i] := A[i] * 3;
write(A[i], ' ');
end;
end.
Имена математических операций - с прописной буквы, и, поскольку есть Random(), то самой первой строкой программы должна быть команда randomize, то есть активация генератора случайных чисел.
У меня работает.