<span>program Metka;
\\ Даем имя метке
label M1;
</span>
<span><span>\\ Даем имя переменной х
</span>var x: shortint;
</span>
<span><span>\\ Начало программы
</span>begin
</span>
<span><span>\\ Выводим текст с просьбой ввода числа
</span>M1:writeln ('Введите x>100');
</span>
<span><span>\\ Запрос на ввод числа
</span>readln(x);
</span>
<span><span>\\ Если введенное число <=100 то идем на М1
</span>if x<=100 then GOTO M1
</span>
<span><span>\\ Конец программы
</span>end.</span>
Два недочета
1) нет точки с запятой после <span>writeln ('x>100')
2) Неверное условие - должно быть <=, т.к. при х=100 условие х>100 не должно выполняться.
</span>3) Желательно попросить ввести х>100 - слово Введите - не лишнее
<em>// PascalABC.NET 3.2, сборка 1383 от 09.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('Количество строк в массиве:');
var m:=ReadInteger('Количество столбцов в массиве:');
Writeln('*** Исходный массив [',n,',',m,'] ***');
var a:=MatrRandom(n,m,0,1);
a.Println(4); Writeln(4*a.ColCount*'-');
Writeln(a.Rows.Any(x->x.All(x->x=0))?'Да':'Нет')
end.
<u>Примеры</u>
Количество строк в массиве: 10
Количество столбцов в массиве: 4
*** Исходный массив [10,4] ***
0 1 1 1
1 0 0 1
1 0 0 1
1 0 1 1
1 1 0 1
1 0 1 1
1 0 1 0
0 0 0 0
1 1 1 1
1 0 0 1
----------------
Да
Количество строк в массиве: 8
Количество столбцов в массиве: 5
*** Исходный массив [8,5] ***
1 1 0 0 1
1 1 0 1 0
1 0 0 0 0
0 0 0 1 1
1 0 1 1 1
1 0 0 1 1
1 1 0 1 1
0 1 1 1 0
--------------------
Нет
Program fff;
var c: Char; n, u, sum: Integer; begin write('Кол-во цифр для ввода: '); readln(n); for u := 1 to n do begin readln(c); sum := sum + Ord(c)-48; end; writeln('Кол-во введёных цифр = ', n); writeln('Сумма введёных цифр = ', sum);end.
Чем компьютер вреден
вреден он тем что многие сейчас 1\3 своей жизни люди проводят за компьютером,телефоном,ноутбуков,етим они гробят себе зрение и осанку лучше выйти на улицуи погулять гуляйте почаще
а хорошие качества есть мы можем найти полезную информацыю .
раньше люди жили без компьютеров и обходились без него но сейчас 21 век и все привыкли сидеть за компомно хотябы 1 в день проыетривайтесь на улице и делайте зарядку глаз