Ответы Mail.ru
Образование
ВУЗы, Колледжи
Детские сады
Школы
Дополнительное образование
Образование за рубежом
Прочее образование
Лидеры категории
Лена-пена
М.И.
Y.Nine
•••
Искусственный Интеллект
Искусственный Интеллект
Искусственный Интеллект
Дз по информатике, хэлп
Treyway Shit
(95),
закрыт
4 года назад
Написать программу. Даны 3 числа (a,b,c) опркделить кол-во делящихся на 5! Срочно нужна помощь!
Лучший ответ
Алекс Куха
(446558)
5 лет назад
var i: integer;
procedure f();
var s:integer;
begin
read(s);
if s mod 5 = 0 then i:=i+1
end;
begin
n:=0;f();f();f();
end.
procedure f();
var s:integer;
begin
read(s);
if s mod 5 = 0 then i:=i+1
end;
begin
n:=0;f();f();f();
end.
Остальные ответы
Smithy Gunfight
(51)
5 лет назад
Вам задают дз по информатике?!?! Мы в сейчас в восьмом классе и на уроках максимум рисуем в пейнте.
Елизавета ФёдороваУченик (107)
5 лет назад
мы в седьмом тоже рисуем только вот у нас настолько тупые в классе что мы рисуем танк питух (именно питух) и танк коала
classclasss
(6308)
5 лет назад
program mas;
uses crt;
var a, b, c, k: integer;
begin
writeln(Введите три числа);
readln(a);
readln(b);
readln(c);
for i:=1 to 3 do begin
if (i mod 5 = 0) then k:=k+1;
end;
writeln(Делящихся на 5,k);
readln;
end.
uses crt;
var a, b, c, k: integer;
begin
writeln(Введите три числа);
readln(a);
readln(b);
readln(c);
for i:=1 to 3 do begin
if (i mod 5 = 0) then k:=k+1;
end;
writeln(Делящихся на 5,k);
readln;
end.
fire XМыслитель (7765)
5 лет назад
Неверно, что за бред? В этой программе ответом всегда будет 0. И вообще k не инциализировано
classclasss
Мыслитель
(6308)
Так исправь и выложи ответ
Александр Хейнонен
(72548)
5 лет назад
program lol;
var a,b,c,l:integer;
begin
read (a);
read (b);
read (c);
l:=0;
if a mod 5 = 0 then l:=l+1;
if b mod 5 = 0 then l:=l+1;
if c mod 5 = 0 then l:=l+1;
writeln (l);
end.
Удачи!
var a,b,c,l:integer;
begin
read (a);
read (b);
read (c);
l:=0;
if a mod 5 = 0 then l:=l+1;
if b mod 5 = 0 then l:=l+1;
if c mod 5 = 0 then l:=l+1;
writeln (l);
end.
Удачи!
Влад Бецко
(289)
5 лет назад
program mas;
uses crt;
var a, b, c, k: integer;
begin
writeln(Введите три числа);
readln(a);
readln(b);
readln(c);
for i:=1 to 3 do begin
if (i mod 5 = 0) then k:=k+1;
end;
writeln(Делящихся на 5,k);
readln;
end.
uses crt;
var a, b, c, k: integer;
begin
writeln(Введите три числа);
readln(a);
readln(b);
readln(c);
for i:=1 to 3 do begin
if (i mod 5 = 0) then k:=k+1;
end;
writeln(Делящихся на 5,k);
readln;
end.
cjycy
(763)
5 лет назад
program lol;
var a,b,c,l:integer;
begin
read (a);
read (b);
read (c);
l:=0;
if a mod 5 = 0 then l:=l+1;
if b mod 5 = 0 then l:=l+1;
if c mod 5 = 0 then l:=l+1;
writeln (l);
end.
var a,b,c,l:integer;
begin
read (a);
read (b);
read (c);
l:=0;
if a mod 5 = 0 then l:=l+1;
if b mod 5 = 0 then l:=l+1;
if c mod 5 = 0 then l:=l+1;
writeln (l);
end.
Фая Ивановна
(94)
5 лет назад
а какой язык?
задаешь переменную
потом через цикл фор прибавляешь к этой переменной то что делится на 5, выводишь переменную
задаешь переменную
потом через цикл фор прибавляешь к этой переменной то что делится на 5, выводишь переменную
Вврвара Грей
(406)
5 лет назад
program lol;
var a,b,c,l:integer;
begin
read (a);
read (b);
read (c);
l:=0;
if a mod 5 = 0 then l:=l+1;
if b mod 5 = 0 then l:=l+1;
if c mod 5 = 0 then l:=l+1;
writeln (l);
end.
var a,b,c,l:integer;
begin
read (a);
read (b);
read (c);
l:=0;
if a mod 5 = 0 then l:=l+1;
if b mod 5 = 0 then l:=l+1;
if c mod 5 = 0 then l:=l+1;
writeln (l);
end.
Света Шкредова
(357)
5 лет назад
program mas;
uses crt;
var a, b, c, k: integer;
begin
writeln(Введите три числа);
readln(a);
readln(b);
readln(c);
for i:=1 to 3 do begin
if (i mod 5 = 0) then k:=k+1;
end;
writeln(Делящихся на 5,k);
readln;
end.
с тебя лайк
uses crt;
var a, b, c, k: integer;
begin
writeln(Введите три числа);
readln(a);
readln(b);
readln(c);
for i:=1 to 3 do begin
if (i mod 5 = 0) then k:=k+1;
end;
writeln(Делящихся на 5,k);
readln;
end.
с тебя лайк
Похожие вопросы