Устройства для ввода информации
T = 8 минут = 480 секунд
V = 192 000 бит/c
найти : I ?
Решение
I = V *t = 192 000 * 480 = 9216000 бит = 11250 Кбайт
Ответ : 11250 кбайт
Var n, i, a, sum: Integer;
Begin
sum := 0;
readln(n);
for i := 1 to n do begin
read(a);
if a mod 5=0 then sum := sum + a;
end;
writeln(sum);
End.
Проверяет равна ли сумма цифр числа P самому числу P
Program Project;
uses
crt;
var
a: byte;
begin
clrscr;
Write("Введите число ");
Readln(a);
Writeln("Полученные числа:",(a div 100)," ",(a mod 10));
Readln;
end.