Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var i,s: integer;
begin
for i: = 100 to 200 do
if i mod 17=0 then s: =s+i;
writeln(s);
end.
если я не ошибся, то звучит так: у меня 2 брата. младшему 2 года, а старшему 8 лет. старший учится в 4 классе. может ли такое быть?
паскаль же?
var s, x: string; c, n, err, i, d, k: integer; begin readln (s); n: =length(s); for i: =1 to n do begin
d: =d+k;
val(s,k,err);
end;
write (d);
для матрицы 8*8
код
00111111
01000001
10000001
00010001
00100001
11000001
объем 8 байт
для символьного 1 байт в ascii
2 байта в unicode
Популярные вопросы