<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:='Победа';
for var i:=1 to s.Length do Writeln(s[i:])
end.
<u>Результат</u>
Победа
обеда
беда
еда
да
а
Program exmpl;
var a,b,c: integer;
begin
write('Введите длины трех сторон треугольника: ');
read(A, B, C);
write('Треугольник со сторонами ', a, b:2, c:2);
if ((a + b) > c) and ((b + c) > a) and ((a + c) > b)
then write(' существует.')
else write(' не существует.');
<span>end.</span>
Примерно так
задать число n(вручную)
double count = 5;
double s = 0;
for( int i=0; i < n; i++){
s += count/count + 2;
count++;
} код java
паскаль не помню ну думаю это не сложно переписать на паскаль
var count = 5;
var s = 0;
for ( var i=0; i < n; i++){
s += count/count + 2;
count++;
} код на javascript
Кроссворд для 9 класса в прикрепленном файле
НЕ - отрицание
в скобках условие ложно
Отрицание лжи - дает истину
НЕ(ЛОЖЬ)=ИСТИНА
Ответ: ИСТИННО