1. Условие задания:
Что получится в результате работы фрагмента программы?
m:=17;
for i:=1 to 7 do
m:=m-6;
writeln (m);
2.
Условие задания:
Что получится в результате работы фрагмента программы?
a:=0.1;
s:=0;
repeat i:=I+1;b:=1/i;
s:=s+a;
until b<a;
write(I)
3.
Условие задания:
Что получится в результате работы фрагмента программы
тикон3
3
15.05.2020 09:56
0
Другие вопросы по теме Информатика
Aigerim735
13.05.2021 20:00
otepovaaazan
13.05.2021 20:01
57алес7т
13.05.2021 20:01
akalitp08ipr
01.06.2019 18:50
Foksit2006
16.07.2019 22:50
andrey440
16.07.2019 22:50
плщорршелит
17.02.2021 07:35
DavidWorld
17.02.2021 07:36
andrey2085
17.02.2021 07:37
Популярные вопросы
- Деректі зат есімнен кұралған қазақ әндері...
1 - Написать 15 пословиц на тему...
3 - Сcomplete the conversations. put in the correct form of each verb. use the present...
3 - Наталья и сергей имеют 18 грн., сергей и максим – 12 грн., а максим и маша – 10...
2 - Фонетический разбор слов: май,гора,вечер,осень,валенки...
1 - Допишите предложения 1)paddington got his name after 2) judy brown was coming home...
1 - Каждое занятие по теннису в спортивной школе длится 45 минут а перерывы между занятиями...
2 - Придумать аббривиатуры связанные со школой 3 штуки...
3 - Сократить дроби 21*56+21*4__21*56-21*5 и второй 3x-15y_4x-20y 6класс...
1 - Назовите крупнейшие эволюционные события того периода...
2
1. -25
2. 11
3. 136 17
1.
var m,i,s:integer;
begin
m:=17;
for i:=1 to 7 do
m:=m-6;
writeln (m);
end.
2.
var i:integer;
a,b,s:real;
begin
a:=0.1;
s:=0;
repeat i:=I+1;b:=1/i;
s:=s+a;
until b<a;
write(I)
end.
3.
var s,k:integer;
begin
s:=0;k:=1;
while k <17 do begin
s:=s+k;
k:=k+1;
end;
write(s,' ',k)
end.