program first; var i,a,b: integer; begin cls; read(a,b,i); if a< 0 then write(sqr(a));
if b< 0 then write(sqr(b));
if i< 0 then write(sqr(i))end.
Спасибо
Ответ дал: Гость
технические характеристики это:
длина самолета размах крыла общее число мест бизнесс-класс (места) эконом-класс (места) крейсерская скорость максимальная высота полёта
дальность полета
инфомодель - это модель данных, это схема, описывающая информацию
Ответ дал: Гость
пример программы для паскаль
program a;
const n = 50; vari: byte; b: array[1..n] of word; procedure proc(a: array of word); beginfor i: =1 to n doif((129 < = a[i]) and (a[i] < = 160)) or ((161 < = a[i]) and (a[i] < =175)) or ((225 < = a[i]) and (a[i] < = 242)) thenwriteln('index = ',i+1,'; bukva - ''',char(a[i]),'''',' a[i] = ',a[i]); end;
beginwriteln; for i: =1 to n do b[i] : = random(300); for i: =1 to n do begin write(' ',i,' = ',b[i]); if (i mod 5 = 0) then writeln; end; writeln; writeln; proc(b); readln;
Популярные вопросы