Ответ:
№13
а).
б).
в).
№14
а).
б).
в).
Подробное решение на фотографиях.
Var n: integer;
begin
read(n);
write((102 - n) div 3 * ((n + 2) div 3 * 3 + 99) div 2)
end.
program yaneznayupascal;
procedure PS;
var m, n, S, P : integer;
begin
write('Введите число m (длина): ');
readln(m);
write('Введите число n (ширина): ');
readln(n);
S := m*n;
P := 2*m+2*n;
write('S = ', S);
write('P = ', P);
end;
begin
PS;
end.
1)32 символьный алфовит это 5 бит 5*80/8=50 байт
2)5*40*60*8:1024=93.75 кб
3)3*1024*8/6144=4
Ответ:
Float a, skv, skb v;
Edit1.Text := StrtoInt(a) ;
skv := a * a;
skb := a * a *6;
v := a * a * a;
Label1.Caption := Площадь квадрата = InttoStr(skv) ;
Label2.Caption := Площадь Куба = InttoStr(skb) ;
Label2.Caption := Объём куба = InttoStr(v) ;
Объяснение: