moskvabelarus
?>

Перепишите следующую программу без ошибок и определите, какое значение будет иметь переменная p после выполнения программы, если с клавиатуры введено число 10? program ol; var a; b; h: integerbeginwriteln(‘введите  число’ ); readln(a); if a> =2 and a< =14thenbeginb: =3; p=a*a+b*bend; else b: =5; p: =(a+b)*(a+b); writeln(‘p=’p); end​

Информатика

Ответы

diana-kampoteks
Const n=10; var a: array[1..10] of   integer;       i: integer;         s,k: real; begin k: =1;   s: =0;   for i: =1 to n do       begin         write ('число = '); readln (a[i]);         if a[i] mod 2 = 0   then s: =s+1 else k: =a[i]*k;       end;     writeln('четных чисел = ',s);     writeln('произведение нечетных = ',k); end.
nsmmkrtchyan
Амолет - летающий аппарат еще пару веков назад люди лишь мечтали о передвижении по воздуху. «парить, словно птица» было мечтой каждого человека. проектов «железной птицы» появлялось все больше и больше. однако, как правило, надежды себя не оправдывали и эти «птицы» никак не могли взлететь. и вот однажды, в 1903 году, братья райты (сша) , орвил и уилбур, все-таки подняли в воздух первый прототип современного самолета «флайер» . он продержался в воздухе 59 секунд, пролетев при этом целых 260 метров. после этого конструкция самолетов стала развиваться все стремительней и совершенней.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Перепишите следующую программу без ошибок и определите, какое значение будет иметь переменная p после выполнения программы, если с клавиатуры введено число 10? program ol; var a; b; h: integerbeginwriteln(‘введите  число’ ); readln(a); if a> =2 and a< =14thenbeginb: =3; p=a*a+b*bend; else b: =5; p: =(a+b)*(a+b); writeln(‘p=’p); end​
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

eobmankina
boykovandrew6663
BelozerovaGeller648
gen218
gurina50
tanias
Маринова
sergei-pletenev
Roman913
ltdfoliant62
Voronov434
VladimirBorisovich
yatania-popovich7
Novikova
Zelinskaya-Andrei