Ответ: 1 изображение - код
2 изображение - проверка, как в задании
Код:
program school10;
Var a, b:Real;
begin
Write('Введите цену 1 кг яблок>> ');
readln(a);
Write('Введите кол-во покупаемых кг. яблок>> ');
Readln(b);
If b>2 then
Write('Стоймость яблок составит: ', b*a*0.8, ' руб.')
Else write('Стоймость яблок составит ', b*a, ' руб.');
end.
Program p1;
var i:integer;
a:array[1..10] of integer;
begin
for i:=1 to 10 do
begin
writeln('Введите ',i,' число: ');
read(a[i]);
end;
for i:=1 to 10 do
if (a[i] mod 3)=0 then writeln('Число: ',a[i]);
<span>end.</span>