var a:array [1..10] of integer;
i,k1,k2:integer;
begin
for i:= 1 to 10 do
a[i]:= Random(81)+20;
writeln(a);
for i:=1 to 10 do
if a[i] mod 2 = 0 then k2:=k2+1
else k1:=k1+1;
writeln('Количество чётных элементов: ',k2);
writeln('Количество не чётных элементов: ',k1)
end.
Var n,m : Integer;
Begin
Write (' введите N: '); Readln (n);
Write (' введите M: '); Readln (m);
Writeln ((n+m)*(m-n+1) div 2);
end.
Ответ:
С паскаля лучше начинать свой путь в программировании - он научит тебя алгоритмам, познакомит с массивами, циклами и другими операторами. Но как сам по себе язык он не используется широко. Тот же питон является более простым и имеет большой потенциал и множество библиотек, его часто используют для разработки Backend'а. Так что стоит выучить основы паскаля, объекты в языках программирования, и потом перейти на другой язык (питон например)
If a>1000 then
b:=a*0.15;
a:=a -b;
write(a);
else
write('скидки нет');
End.