Умоляю помогите мне, я вообще не понимаю информатику, прошу помогите мне дам 45 баллов, задания внизу:
1. С клавиатуры вводится 10 целых чисел, найти количество чисел, больших 4, но меньших 9.
2. С клавиатуры вводится n чисел, найти сумму чисел, больших 4, но меньших 9.
3. С клавиатуры вводится n целых чисел. Вывести все числа, которые делятся на 3 и нечетные, их
количество и произведение.
Ответы
1.
var num, count, i:integer;
begin
count:=0;
for i:=1 to 10 do
begin
readln(num);
if (num >4) and (num<9) then
count:=count+1;
end;
write(count);
end.
2.
var sum, i, num:integer;
action:string;
begin
action:='еще' ;
sum:=0;
write( 'Чтобы перестать вводить числа, напишите [хватит], чтобы продолжать вводить, напишите [еще]') ;
while action = 'еще' do
begin
writeln('Введите команду') ;
readln(action);
Writeln('Введите число') ;
readln(num);
if (num>4) and (num<9) then
sum:=sum+num;
end;
write(sum);
end.
3.
var mult, count, i, num:integer;
action:string;
begin
action:='еще' ;
mult:=1; count:=0;
write( 'Чтобы перестать вводить числа, напишите [хватит], чтобы продолжать вводить, напишите [еще]') ;
while action = 'еще' do
begin
writeln('Введите команду');
readln(action);
writeln('Введите число') ;
readln(num);
if (num mod 2 <> 0) and (num mod 3 = 0) then
mult:=mult*num;
count:=count+1;
end;
write(mult, ' ', count);
end.