Составьте программу обмена значениями двух переменных величин: по следующей схеме: в-присвоить значение с а-присвоить значение в
100
101
Ответы на вопрос:
Var a,b,c,d,e: integer; begin writeln ('введите первую переменную '); readln (a); writeln ('ведите вторую переменную '); readln (b); writeln ('введите значение *c* '); readln (c); d: =b; e: =c; writeln ('присвоил значнеию b значение с ', e); writeln ('присвоил значению а значение b ', d); end. ну это тоже без особого воображения. я не знаю на сколько вам подойдет и правильно ли я вас понял
var a,i,n,k : integer; begin k : = 0; write ('n = '); readln (n); for i : = 1 to n do begin read (a); if a =0 then k : = k +1; end; writeln (k,' - кол-во нулей'); end.
Популярно: Информатика
-
SuperNisas20.12.2020 04:48
-
вика678111.08.2020 06:46
-
KatyshaBym10.03.2022 05:32
-
Theduckmen08.03.2021 08:36
-
Manikaiva05.06.2020 21:41
-
burvan198715.06.2023 18:35
-
linagaribyan16.11.2022 17:34
-
maksnovok00711.03.2022 19:11
-
linda28123.08.2021 15:18
-
Скотч7Рулит19.12.2021 17:12