Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
для начала переведем кбайты в биты:
2500кбайт=2500*1024*8=20480000бит,
затем найдем искомое время: t=объём файла/скорость передачи,
t=20480000/1024000=20 секунд
var a,c,l,w1,w2,w3 : longint;
begin
readln(a,c);
w1: =0;
w2: =0;
w3: =0;
l: =a mod 10;
while a> 0 do
if a mod 10=c then w1: =w1+1;
if a mod 10=l then w2: =w2+1;
if a mod 2=0 then w3: =w3+1;
a: =a div 10;
end;
writeln(w1,' ',w2,' ',w3);
end.
1 см = 0,01 м
поэтому длину в см делим на 100 и получаем длину в м. и записываете целое число без остатка.
program a1;
uses crt;
var a: array[1..31] of longint; k,i: integer;
clrscr;
for i: =1 to 31 do begin
write('введите температуру ',i,' числа: ');
readln(a[i]);
if a[i]< 0 then k: =k+1;
writeln(' количество дней в которые были заморозки = ', k);
readln
p.s. если паскаль abc, то выделенное писать не обязательно
Популярные вопросы