Вторая задача
var a,b,i,sum:integer;beginread(a,b);for i:=1 to b do begin inc(sum,a); end;writeln(sum);end.
Третья задача.
var a,b,i,sum:integer;beginwriteln('Cколько минут прошло?');read(a);sum:=1;for i:=1 to a do begin inc(sum,sum); end;writeln(sum);end.
Четвертая задача
var a,i,x:integer; fibb:array [0..1000] of integer;beginread(a);fibb[0]:=1;fibb[1]:=1;i:=2;while fibb[i-1]<a do begin fibb[i]:=fibb[i-1]+fibb[i-2]; inc(i); end;x:=i;for i:=1 to x-2 do beginwrite(fibb[i],' ');end;end.
Кажется, будет слово: паркет.
Но я не уверена, на счет второй картинки
1)Т.к 1 мб=8000000 битов, тогда 8000000*136=1088000000 битов.
2)Т.к 1 тб=1000000000 КБ, тогда 1000000000*2=2000000000 кб.
3),4) немного не поняла, напиши я дорешаю.
5)Дано : | Решение.
V=12 кбит/с. | 1)Переведем 6 минут в сек. :
t=6 мин. | 6*60=360(сек)
_________ | 2)12*360=4320(кб).
S=?
Ответ :4320 килобайт.
Подробнее - на Znanija.com - znanija.com/task/30179393#readmore
Ответ:
Объяснение:
Передача информации: Рассказал другу параграф по истории. Передал подруге флешку с любимыми песнями.
Хранение информации. Хранение фотографий на жестком диске. Электронный учебник скачан на телефон.
Обработка информации: Решение задачи на уроке математики. Ввод текста с клавиатуры в компьюетер ( преобразование текста в довичный код)
Program log1;
Var x,y,s:integer;
Begin
writeln('x=');
readln(x);
writeln('y=');
readln(y);
s:=sqr(x)+sqr(y);
if s<=4
then writeln('4 равен или больше чем сумма квадратов x и y')
else writeln('4 меньше суммы квадратов x и y');
end.
