Можно так:
Program VremjaGoda;
Var i:integer;
Begin
Writeln ('введите номер месяца');
Begin
For i:=1 to 12 do
Begin
If i=1 or i=2 or i=12
Then writeln ('зима');
Else
If i=3 or i=4 or i=5
Then writeln ('Весна');
Else
If i=6 or i=7 or i=8
Then writeln ('Лето');
Else
If i=9 or i=10 or i=11
Then writeln ('Осень');
End;
End;
End.
Можно использовать Case.
Uses crt;
VAR A,B,C:integer;
begin clrscr;
A:=B*C
readkey;
end.
Ответ: 1 минута
Решение:
Переводим байты в Кб
3072000/1024=3000Кб
Находим время - делим объём на скорость
3000/50=60(с)= 1 минута
Include <iostream>
using namespace
int mail(){
int S, i,n;
cin>>n;
for(i=1,i<=n,i++)
{
S=S+i;
}
cout<<S<<endl;
system(“pause”)
return 0;
<span>}
P.S n это сколько нужно ввести цифр</span>