4 минуты это 240 секунд. если за 1 сек передается 256000 бит (32000 байт т.е. 1 байт=8 бит) то получится 7680 килобайт за 4 минуты
Var money:integer;
min:real;
s:string;
begin
write('Стоимость одной минуты разговора = ');
readln(money);
write('Длительность разговора = ');
readln(min);
write('Какой сегодня день? ');
readln(s);
if (s = 'суббота') or (s = 'Суббота') or (s = 'Воскресенье') or (s = 'воскресенье') then writeln('Стоимость разговора = ',money * min*0.8)
else writeln('Стоимость разговора = ',money*min);
end.
{Возможно это можно более просто организовать, однако программа работает :) }
Var a,b,ax,x: integer; flag: boolean;
Begin
Readln(a,b); ax:=a;
If (a>=0) and (b>=0) then flag:=true
else begin a:=abs(a); b:=abs(b); flag:=false; end;
If (a=0) or (b=0) then write('0')
else begin while b > 1 do
begin a:=a+ax; dec(b); end; x:=a;
if flag then write(x) else write(x-x*2); end;
End.
#include <stdio.h>
int main()
{
int days, pay;
printf("Дней в месяце: ");
scanf("%d", &days);
printf("Денег в первый день: ");
scanf("%d", &pay);
for (int i = 1; i < days; i++) {
pay *= 2;
}
printf("В последний день будет выплачено %d рублей\n", pay);
return 0;
}
Program chisla;
var a,b:integer;
q:real;
begin
read(a,b);
q:=(abs(a)+abs(b))/2;
writeln(q);
q:=sqrt(abs(a)*abs(b));
writeln(q);
end.