1
Запишите значение переменной s, полученное в результате работы следующей программы.
Var s,k: integer;
Begin
s := 0;
for k := 3 to 7 do
s := s + 6;
writeln(s);
End.
2
Какое число будет напечатано после работы приведенной ниже программы, если при вводе переменная К получит значение 4?
Var K,n,F1,F2,P : Byte;
Begin
Write (‘Задайте К =’);
Readln(K);
F1 := 1; F2 := 1; n := 2;
While n <= K do
Begin
P := F1 + F2;
n := n + 1;
F2 := F1;
F1 := P
End;
Writeln (‘P=’,P:3)
End.
3
Запишите значение переменной s, полученное в результате работы следующей программы.

Var s,k: integer;
Begin
s := 4;
for k := 4 to 8 do
s := s + 7;
writeln(s);
End.
4
Какое число будет напечатано после работы приведенной ниже программы, если при вводе переменная К получит значение 4?
Var K,n,F1,F2,P : Byte;
Begin
Readln(K);
F1 := 1; F2 := 1; n := 1;
Repeat n := n + 1;
P := F1 + F2;
F2 := F1;
F1 := P
Until n > K;
Writeln (‘P=’,P:3)
End.5
Какое число будет напечатано после работы приведенной ниже программы, если при вводе переменная К получит значение 4?
Var K,n,F1,F2,P : Byte;
Begin
Write (‘Задайте К =’);
Readln(K);
F1 := 1; F2 := 1; n := 2;
While n <= K do
Begin
P := F1 + F2; n := n + 1;
F2 := F1;
F1 := P End;
Writeln (‘P=’,P:3)
End.

207

239

Посмотреть ответы 1

Ответы на вопрос:

tanya200525

Информатика

4,6(45 оценок)

Var a : integer; begin readln(a); if (a mod 100) div 10> (a mod 10) then writeln('сотни') else if (a mod 100) div 10< (a mod 10) then writeln('единицы') else writeln('одинаково'); end.

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.