{Даны вещественные числа a,b,c. Определите, существует ли треугольник со сторонами a,b,c?} var a,b,c:real; begin writeln('введите стороны треугольника'); readln(a, b, c); if (a+b>c) and (a+C>b) and (b+c>a) then writeln('треугольник существует') else writeln('треугольник не существует'); end.
{ Дано целое положительное число. Определите, оканчивается ли оно цифрой 7} var N:integer; begin writeln('введите число'); readln(N); if n mod 10= 7 then writeln('оканчивается цифрой 7') else writeln( 'не оканчивается цифрой 7'); end.
1. Какое число нужно написать вместо многоточия, чтобы цикл выполнился ровно 4 раза? i:=3;
while i<=... do begin
writeln('Привет!');
i:=i+1;
end;
После каждого шага цикла к i прибавляется 1.
Изначально i = 3. Поэтому чтобы цикл выполнился ровно 4 раза, i сможет принять значения 3, 4, 5, 6.
Значит, нужно записать вместо ... число 6.
ответ: 6
2. Сколько раз будет выполнен этот цикл?
i:=6;
while i<5 do begin
writeln('Привет!');
i:=i+1;
end;
Т.к. i = 6, то на первом шаге цикла неравенство 6 < 5 будет уже неверно. Поэтому данный цикл выполнится 0 раз.
ответ: 0
3. Какое число будет выведено на экран в результате выполнения этого цикла?
i:=1;
write('9');
while i<3 do begin
write(i);
i:=i+1;
end;
Сначала до цикла будет выведено число 9.
Затем начинается цикл:
1 шаг (i = 1) : выведется 1
2 шаг (i = 2) : выведется 2
На 3 шаге (i = 3) цикл завершится, т.к. неравенство 3 < 3 неверно.
ответ: 912
4. Какое число нужно написать вместо многоточия, чтобы цикл выполнился ровно 2 раза?
i:=4;
while i>=... do begin
writeln('Привет!');
i:=i-1;
end;
После каждого шага цикла от i отнимается 1. Изначально i = 4. Поэтому чтобы цикл выполнился ровно 2 раза, i сможет принять значения 4, 3.
Значит, нужно записать вместо ... число 3.
ответ: 3
5. Какое число нужно написать вместо многоточия, чтобы цикл выполнился ровно 2 раза?
i:=...;
while i>=6 do begin
writeln('Привет!');
i:=i-1;
end;
После каждого шага цикла от i отнимается 1. Цикл завершается при i = 5. Поэтому чтобы цикл выполнился ровно 2 раза, i сможет принять значения 7, 6.
Значит, нужно записать вместо ... число 7.
ответ: 7
6. Какое число нужно написать вместо многоточия, чтобы цикл выполнился ровно 3 раза?
i:=...;
while i<=7 do begin
writeln('Привет!');
i:=i+1;
end;
После каждого шага цикла к i прибавляется 1. Цикл завершается при i = 8. Поэтому чтобы цикл выполнился ровно 3 раза, i сможет принять значения 5, 6, 7.
Значит, нужно записать вместо ... число 5.
ответ: 5
7. Чему будет равно значение переменной «a» после выполнения этого цикла?
i:=2;
a:=12;
while i<5 do begin
a:=a+i;
i:=i+1;
end;
1 шаг цикла (i = 2) : a = a + i = 12 + 2 = 14
2 шаг цикла (i = 3) : a = a + i = 14 + 3 = 17
3 шаг цикла (i = 4) : a = a + i = 17 + 4 = 21
На 4 шаге (i = 5) цикл завершится, т.к. неравенство 5 < 5 неверно.
var a,b,c:real;
begin
writeln('введите стороны треугольника');
readln(a, b, c);
if (a+b>c) and (a+C>b) and (b+c>a) then writeln('треугольник существует')
else writeln('треугольник не существует');
end.
{ Дано целое положительное число. Определите, оканчивается ли оно цифрой 7}
var
N:integer;
begin
writeln('введите число');
readln(N);
if n mod 10= 7 then
writeln('оканчивается цифрой 7')
else writeln( 'не оканчивается цифрой 7');
end.
1. Какое число нужно написать вместо многоточия, чтобы цикл выполнился ровно 4 раза? i:=3;
while i<=... do begin
writeln('Привет!');
i:=i+1;
end;
После каждого шага цикла к i прибавляется 1.
Изначально i = 3. Поэтому чтобы цикл выполнился ровно 4 раза, i сможет принять значения 3, 4, 5, 6.
Значит, нужно записать вместо ... число 6.
ответ: 6
2. Сколько раз будет выполнен этот цикл?
i:=6;
while i<5 do begin
writeln('Привет!');
i:=i+1;
end;
Т.к. i = 6, то на первом шаге цикла неравенство 6 < 5 будет уже неверно. Поэтому данный цикл выполнится 0 раз.
ответ: 0
3. Какое число будет выведено на экран в результате выполнения этого цикла?
i:=1;
write('9');
while i<3 do begin
write(i);
i:=i+1;
end;
Сначала до цикла будет выведено число 9.
Затем начинается цикл:
1 шаг (i = 1) : выведется 1
2 шаг (i = 2) : выведется 2
На 3 шаге (i = 3) цикл завершится, т.к. неравенство 3 < 3 неверно.
ответ: 912
4. Какое число нужно написать вместо многоточия, чтобы цикл выполнился ровно 2 раза?
i:=4;
while i>=... do begin
writeln('Привет!');
i:=i-1;
end;
После каждого шага цикла от i отнимается 1. Изначально i = 4. Поэтому чтобы цикл выполнился ровно 2 раза, i сможет принять значения 4, 3.
Значит, нужно записать вместо ... число 3.
ответ: 3
5. Какое число нужно написать вместо многоточия, чтобы цикл выполнился ровно 2 раза?
i:=...;
while i>=6 do begin
writeln('Привет!');
i:=i-1;
end;
После каждого шага цикла от i отнимается 1. Цикл завершается при i = 5. Поэтому чтобы цикл выполнился ровно 2 раза, i сможет принять значения 7, 6.
Значит, нужно записать вместо ... число 7.
ответ: 7
6. Какое число нужно написать вместо многоточия, чтобы цикл выполнился ровно 3 раза?
i:=...;
while i<=7 do begin
writeln('Привет!');
i:=i+1;
end;
После каждого шага цикла к i прибавляется 1. Цикл завершается при i = 8. Поэтому чтобы цикл выполнился ровно 3 раза, i сможет принять значения 5, 6, 7.
Значит, нужно записать вместо ... число 5.
ответ: 5
7. Чему будет равно значение переменной «a» после выполнения этого цикла?
i:=2;
a:=12;
while i<5 do begin
a:=a+i;
i:=i+1;
end;
1 шаг цикла (i = 2) : a = a + i = 12 + 2 = 14
2 шаг цикла (i = 3) : a = a + i = 14 + 3 = 17
3 шаг цикла (i = 4) : a = a + i = 17 + 4 = 21
На 4 шаге (i = 5) цикл завершится, т.к. неравенство 5 < 5 неверно.
ответ: 21