$2304\ \text{sym/str}*4\ \text{str}=9216\ \text{sym}\\9216\ \text{sym}*8\ \text{bit/sym}=73728\ \text{bit}\\\frac{73728\ \text{bit}}{36864\ \text{bit/s}}=2\ \text{s}$

0 0

4 года назад

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

Вводится 5 любых чисел. Подсчитать сумму и количество чисел, кратных 6. Определить, делится ли на 4 полученная сумма.Pascal ABC

Панчик

Var a,s,i,k: integer;
begin
for i:=1 to 5 do
begin
write ('Введите число: ');
readln (a);
if a mod 6 = 0 then
begin
s:=s+a;
k:=k+1
end
end;
writeln ('Cумма чисел, кратных 6, равна: ',s);
writeln ('Количество чисел, кратных 6, равно: ',k);
if (s<>0) and (s mod 4 = 0) then writeln ('Cумма чисел, кратных 6, делится на 4 нацело');
if (s<>0) and (s mod 4 <> 0) then writeln ('Cумма чисел, кратных 6, не делится на 4 нацело')
end.

0 0

4 года назад

Напишите программу, которая в последовательности целых чисел определяет количество трехзначных чисел, кратных 7. Программа получ

Alyana

uses crt;
var ch,i,n,count:integer;
begin
n:=0;
count:=0;

write(' Введите число : ');
readln(ch);
if ((abs(ch)<30000) and (ch div 100 <> 0 ) and (ch mod 7 = 0)) then inc(count);
while ((ch<>0) and ( n <1001)) do
begin
write(' Введите число : ');
readln(ch);
if ((abs(ch)<30000) and (ch div 100 <> 0 ) and (ch mod 7 = 0)) then inc(count);
inc(n);
end;
writeln(count);
readln;
end.

0 0

1 год назад