Предмет: Информатика,
автор: GokuderaHayato
Программу на 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.
Похожие вопросы
Предмет: Русский язык,
автор: Заря101
Предмет: Биология,
автор: Ученица1509
Предмет: История,
автор: marinazhuravleva
Предмет: Алгебра,
автор: 919191919134
Предмет: Русский язык,
автор: semnmedvedev98