Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
uses crt; var
a,b: integer; begin write('введи возраст саши: '); read(a);
write('введи возраст маши: '); read(b);
writeln; if a> b then write('саша старше маши'); if a< b then write('маша страше саши'); if a=b then write('маша и саша - ровесники'); end.
program xxx;
var i, n : integer;
a, d : real
s: array[1..20] of real;
begin
write('введите n-');
readln (n);
write('введите а=');
readln(a);
write('введите d=');
readln(d);
s[1]: =a;
for i: =2 to n do
s[i]: =a+d;
write('арифметическая прогрессия: ');
for i: =1 to n do
write(s[i]);
end.
стр1: 'дерево';
стр2: 'обработка';
стр3: стр1+стр2;
стр3: ='деревообработка';
1. 0,25 кбайт=256 байт = 2048 бит
2. каждый символ - 8 бит
3. 2048/8=256 символов
Популярные вопросы