3 года назад

Написать программу. Даны 3 числа (a,b,c) опркделить кол-во делящихся на 5! Срочно нужна помощь!

Знания

Информатика

1 ответ:

Сергей Иванович А... [386]3 года назад

0 0

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.

*проверил в паскале

Читайте также

Исполнитель Черепашка перемещается на экране компьютера, оставляя след в виде линии. В каждый конкретный момент известно положен

Вариант ответа 4, я сама на листке рисовала, только вместо 80-8, а вместо 90-9

0 0

4 года назад

Прочитать ещё 2 ответа

Помогите! Я не разбираюсь в информатике!

Денис022 [14]

N = 2^i ; 64 = 2^6 ; 6 бит - один символ

M = K * i ; K = 10*32*64 = 20480 ; M = 20480*6=122880 бит/8 = 15360 байт

0 0

4 года назад

Написать программу отсчёта от 10 до 1, завершиться должна словом пуск. Паскаль, цикл while

7Евгений2

// PascalABC.NET 3.2, сборка 1403 от 16.03.2017

begin
var i:=10;
while i>=1 do begin
 Writeln(i);
 Sleep(1000); // пауза 1с
 i:=i-1
 end;
Writeln('Пуск!')
end.

Результат
10
9
8
7
6
5
4
3
2
1
Пуск!

0 0

4 года назад

Помогите решить задачу в Паскале: вводится строка с клавиатуры. определить сколько в ней о.

викаdbrf [14]

Var
s:string;
k,i:integer; {k-количество символов 'o',i-счетчик цикла}
begin
readln(s);
k:=0;
for i:=1 to length(s) do {цикл от 1 до длины строки}
if s[i]='o'
then k:=k+1;
writeln(k);
end.

0 0

3 года назад

Прочитать ещё 2 ответа

Составьте программу, которая по введенному вами K - числу грибов печатает фразу <Мы нашли в лесу K грибов>, причем согласо

akumkol5 [49]

Var g,i:integer;
begin
read(g);
if (g=1) or ((g>20) and (g mod 10=1)) then begin writeln('Мы нашли в лесу ',g,' гриб'); i:=1; end;
if ((g mod 10>1) and (g mod 10<5)) or ((g>21) and (g mod 10>1) and (g mod 10<5)) then begin writeln('Мы нашли в лесу ',g,' гриба'); i:=1; end;
if i=0 then writeln('Мы нашли в лесу ',g,' грибов');
end.

0 0

4 года назад