1)
var s,k:integer;
begin
s:=0;
begin for k:= 6 to 12 do
s:=s+5;
end;
write(s);
end.
Ответ
35
2)
var Dat: array [1..7] of integer;
k, m, day: integer;
begin
Dat[1]:=7;
Dat[2]:=9;
Dat[3]:=10;
Dat[4]:=8;
Dat[5]:=6;
Dat[6]:=7;
Dat[7]:=6;
day:= 1;
m:=Dat[1];
begin for k:=2 to 7 do
if Dat[k]<m then
begin m:=Dat[k];
day:=k;
end;
end;
write(day);
end.
Ответ
5
650 ПЕРЕВЕСТИ В КБ И ДЕЛИТЬ НА 3072
650x1024=665600
665600/3072=216,6сек
216,6/60=3,61мин
Qbasic
CLS
Input "Либите ли вы мороженное"; A$
IF A$=да Then
Print "Ну чтож поедим вместе."
else
Print "Прекрасно отдайте свою порцию мне."
End if
end
Подобные этим паролям:
Parol_43
Shapka_7
13_Moroz
1.Налил в чайник воды.
2.Поставил на газ и подождал пока он закипит.
3.Насыпал в заварник заварку.
4.Залил кипятком.
5.Подождал 10-15 мин.
(я так писала, только не про чай)