Переменная i присваивает значения от 13 до 5,то есть
13,12,11,10,9,8,7,6,5.
<em>// PascalABC.NET 3.2, сборка 1387 от 20.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-2,2); a.Println;
Writeln('Положительных: ',a.Where(x->x>0).Count)
end.
<u>Пример</u>
n= 15
1 -1 -1 2 0 2 2 -2 -2 0 -1 -1 -2 1 1
Положительных: 6
Создание (публикация) web-страниц с помощью локального хостинга.
Публикация страниц на доменчик.
Создание с помощью редакторов.
Создание с помощью стандартных методов ОС.
uses crt;
var a:integer;
begin
write('Введите число: ');
readln(a);
if (a mod 13)=0 then write('Число делится без остатка на 13') else write('Число не делится без остатка на 13');
writeln;
if (a mod 10)=7 then write('Число оканчивается на цифру 7') else write('Число не оканчивается на цифру 7');
end.
Если нужно выполнять программу из-под программной оболочки, удали первую строку.
Два решения.
1. Токарев - плотник, Плотников - слесарь, Слесарев - токарь.
2. Токарев - слесарь, Плотников - токарь, Слеварев - плотник.