Реши задачи:
A) Определите, что будет напечатано в результате работы следующей программы.
var s, k:integer;
begin
s:= 100;
for k:= 0 to 10 do
s:= s – 5;
writeln (s);
end.
Б) Определите, что будет напечатано в результате работы следующей программы.
Var k,i: integer;
Begin
k := 4;
For i := 1 to 3 do
k := 2*k + i;
Writeln(k);
End.
В)Определите, что будет напечатано в результате работы следующей программы.
var s, k:integer;
begin
s:= 0;
for k:= 4 to 11 do
s:= s + k;
writeln (s);
end.
220
337
Ответы на вопрос:
Это можно посчитать так: в цикле 11 действий, каждое действие уменьшает s на 5, получается 100-11*5=45
Объяснение:
Const n=15;
var
k: array [1..n] of integer;
i,k5,k3: integer;
begin
k5: =0; k3: =0;
for i: =1 to n do
a[i]: =random(51);
for i: =1 to n do begin
if a[i] mod 5=0 then inc(k5);
if a[i] mod 3=0 then inc(k3);
end;
writeln;
writeln(k3, ' ', k5);
end.
var
k: array [1..n] of integer;
i,k5,k3: integer;
begin
k5: =0; k3: =0;
for i: =1 to n do
a[i]: =random(51);
for i: =1 to n do begin
if a[i] mod 5=0 then inc(k5);
if a[i] mod 3=0 then inc(k3);
end;
writeln;
writeln(k3, ' ', k5);
end.
Популярно: Информатика
-
annarykova4036712.03.2023 10:12
-
David346427.04.2021 04:30
-
жуля709.01.2020 08:17
-
dashavr103.11.2022 07:03
-
Kononovichlika24.03.2021 20:18
-
DianaDi111111129.07.2022 14:51
-
nabiulinadasha14.07.2020 08:44
-
kripto12324.03.2021 06:12
-
dasa220819.05.2021 01:07
-
kat2000T17.09.2022 08:14