//прога на Pascal`е
<span>var
</span><span> a : longint;
</span><span>begin
</span><span>write ('Введите кол-во минут: ');
</span><span>read(a);
</span><span>write (a, ' минут{ы) - это ', (a div 60) : 3, ' ч. ', (a mod 60) : 2, ' мин.');
</span><span>end.</span>
Разделить на секунды а число?????!!!
Program Task;
Var i: Integer;
p: LongInt;
Begin
p := 1;
For i := 1 To 10 Do
p := p * i;
WriteLn('Результат: ', p);
ReadLn;
<span>End.</span>
1.
var f:text; s:string; r:integer;
begin
assign(f,'nedelya.txt');
rewrite(f);
repeat
write('Введите день недели: ');
readln(s);
writeln(f,s);
write('Повторить (1-да, 0-нет)?');
readln(r);
until r=0;
close(f);
end.
Пример:
Введите день недели: понедельник
Повторить (1-да, 0-нет)?1
Введите день недели: вторник
Повторить (1-да, 0-нет)?1
Введите день недели: среда
Повторить (1-да, 0-нет)?0
Содержимое файла nedelya.txt:
понедельниквторниксреда
2.
var f:text; s:string; r:integer;
begin
assign(f,'nedelya.txt');
append(f);
repeat
write('Day of the week: ');
readln(s);
writeln(f,s);
write('Repeat (1-yes, 0-no)?');
readln(r);
until r=0;
close(f);
end.
Пример:
Day of the week: Thursday
Repeat (1-yes, 0-no)?1
Day of the week: Friday
Repeat (1-yes, 0-no)?1
Day of the week: Saturday
Repeat (1-yes, 0-no)?0
Содержимое файла nedelya.txt:
понедельник
вторник
среда
Thursday
Friday
Saturday
3.
var f:text; s:string;
begin
assign(f,'nedelya.txt');
reset(f);
while not eof(f) do
begin
readln(f,s);
writeln(s);
end;
close(f);
end.
Результат:
понедельник
вторник
среда
Thursday
Friday
Saturday
1) сани - США меняется на мо - мони
2) торт последняя убирается тор
Мони+тор=монитор
Ответ: монитор
