Программу на pascal.
Напишите условие выбора чисел больших 100 и кратных 3
therealcf2014:
Возьмем d за ваше число. Тогда if (s>100) and (s mod 3 = 0) then
s тоесть
так что-ли?
Условия неполны
к примеру
ну я же условие n>100 в writeln прописал но нечего не стоит добавить их в программу
Я про само задание
var a,n:integer;
begin
writeln('введите число больше 100 до которого проверять');
readln(n);
for a:=n downto 100 do begin
if (a mod 3 = 0) and (n>100)
then writeln(a);
else writeln('таки не кошерны ответ получается');
end;
end.
begin
writeln('введите число больше 100 до которого проверять');
readln(n);
for a:=n downto 100 do begin
if (a mod 3 = 0) and (n>100)
then writeln(a);
else writeln('таки не кошерны ответ получается');
end;
end.
упс, там так должно быть
var a,n:integer;
begin
writeln('введите число больше 100 до которого проверять');
readln(n);
if n<100 then writeln('таки не кошерный ответ получается');
for a:=n downto 100 do begin
if (a mod 3 = 0) and (n>100)
then writeln(a)
end;
end.
begin
writeln('введите число больше 100 до которого проверять');
readln(n);
if n<100 then writeln('таки не кошерный ответ получается');
for a:=n downto 100 do begin
if (a mod 3 = 0) and (n>100)
then writeln(a)
end;
end.
Ответы
Ответ дал:
0
var a,n:integer;
beginwriteln('введите число больше 100 до которого проверять');
readln(n);
for a:=n downto 100 do begin
if (a mod 3 = 0) then writeln(a);
end;
end.
beginwriteln('введите число больше 100 до которого проверять');
readln(n);
for a:=n downto 100 do begin
if (a mod 3 = 0) then writeln(a);
end;
end.
var a,n:integer;
begin
writeln('введите число меньше 100 до которого проверять');
readln(n);
if (n<100) or (n=100) then writeln('таки не кошерный ответ получается');
for a:=n downto 100 do begin
if (a mod 3 = 0) and (n>100)
then writeln(a)
end;
end.
begin
writeln('введите число меньше 100 до которого проверять');
readln(n);
if (n<100) or (n=100) then writeln('таки не кошерный ответ получается');
for a:=n downto 100 do begin
if (a mod 3 = 0) and (n>100)
then writeln(a)
end;
end.
Вас заинтересует
2 года назад
2 года назад
2 года назад
2 года назад
7 лет назад
7 лет назад
9 лет назад