Ответ:
В языке pascal есть такие конструкции как if, case на самом деле способов много, стоит лишь подумать.
Объяснение:
Объяснение:
1Кбайт — 1024байт.
1байт — 8бит.
1) 10240:1024 = 10Кбайт.
2) 204800:8:1024 = 25Кбайт.
3. pascal
var s, a: integer;
g:longint;
begin
s:=0;
readln(g);
while g > 0 do
begin
a:=g mod 10;
g:=g div 10;
s:=s+a;
end;
writeln(s)
end.
1 бит т.к красных и черных в колоде одинаковое кол-во.
В лучший ответ пожалуйста, 2 до отличника не хватает