<em>// PascalABC.NET 3.3, сборка 1573 от 04.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(5,-50,50); a.Println;
a.Sort; a.Println
end.
<u>Пример</u>
-5 19 -32 34 20
-32 -5 19 20 34
Program tablisa_umnogenya;
var i,x,a: integer;
begin
read(x);
a:=0;
for i:=1 to 10 do
begin
a:=a+x;
writeln(a);
end;<span>
end.
эта программа на Паскаль, на оценку среднюю, тк считаю что на оценку повыше, недостаточно понятное оформление, если на оценку повыше, то заменить строку "</span>writeln(a); " на "writeln(x,'*',i,'=',a);"
Опишем условия задачи (ориентируемся на рисунок где выделены области N1, N2, N3)
N2=1000 (из условия фрегат & эсминец 1000)
N1+N2=2000 (из условия фрегат 2000)
N2+N3=2500 (из условия эсминец 2500)
Запрос фрегат | эсминец можно описать как
N1+N2+N3
Выражаем из уравнений выше каждую из N
N2=1000
N1=2000-N2=2000-1000=1000
N3=2500-N2=2500-1000=1500
Получаем:
N1+N2+N3=1000+1000+1500=3500
Var god,mes,chislo:integer;
begin
Write('Какой год '); Readln(god);
write('Сколько дней в текущем месяце? '); Readln(mes);
write('Какое сегодня число? '); readln(chislo);
write('Количество дней до конца текущего месяца: ',mes-chislo);
<span>
end.</span>