Помогите составить программы Введите несколько чисел. Найдите произведение чисел меньших 7. Введите несколько чисел. Найдите количество двузначных чисел. Введите несколько чисел. Определить каких чисел меньше - больше 10 или ме...
Помогите составить программы
Введите несколько чисел. Найдите произведение чисел меньших 7.
Введите несколько чисел. Найдите количество двузначных чисел.
Введите несколько чисел. Определить каких чисел меньше - больше 10 или меньше 10
Введите несколько чисел. Вывести числа от 12 до 40 кратные 7.
Гость
Ответ(ы) на вопрос:
ГостьПервая программа
var
n, i, x, s : integer;
t : boolean;
begin
writeln('количество чисел');
readln(n);
s := 1;
t := false;
for i := 1 to n do
begin
writeln(i,' число');
readln(x);
if x < 7 then
begin
t := true;
s := s*x;
end;
end;
if t then
writeln('Ответ ',s)
else
writeln('Ответ ',0);
end.
Вторая
var
n, i, x, s : integer;
begin
writeln('kolichestvo chisel');
readln(n);
s := 0;
for i := 1 to n do
begin
writeln(i,' chislo');
readln(x);
if (x >= 10) and (x < 99) then
s := s + 1;
end;
writeln('Otvet: ',s);
end.
Третья
var
n, i, x, s : integer;
begin
writeln('kolichestvo chisel');
readln(n);
s := 0;
for i := 1 to n do
begin
writeln(i,' chislo');
readln(x);
if x > 10 then
s := s + 1
else if x < 10 then
s := s - 1;
end;
if s > 0 then
writeln('chisel >10 bolche')
else if s < 0 then
writeln('chisel <10 bolche')
else writeln('chisel porovnu');
end.
Четвёртая
var
n, i, x : integer;
st : string;
begin
writeln('kolichestvo chisel');
readln(n);
for i := 1 to n do
begin
writeln(i,' chislo');
readln(x);
if (x > 12) and (x < 40) and (x mod 7 = 0) then
st := st + IntToStr(x) + ' ';
end;
writeln('otvet: ',st);
end.
Не нашли ответ?
Похожие вопросы