«Весна — лето 2024»

Паскаль(Paskal) коды

Паскаль

Язык программирования

Один из наиболее известных языков программирования, используется для обучения программированию в старших классах и на первых курсах вузов, является основой для ряда других языков.

Олимпиады: Информатика 1 - 11 классы

Содержимое разработки

А+А

var

A,B:longint;

begin

read(a,b);

write(a+b);

end.

Пятью - пять

var A,F,D:integer;

Begin

read(A);

F:=A div 10;

D:=F*(F+1);

if d=0 then write(25) else

write(D,25);

end.

Торт

var N:integer;

begin

read(N);

if N=1 then write(0) else

if n mod 2=0 then write(N div 2)

else write(N);

end.



Арбузы

var n,i,x,max,min:integer;

a:array [1..30000] of integer;

begin

read(n);

for i:=1 to n do begin

read(x);

a[i]:=x;

end;

max:=a[1];

for i:=2 to n do begin

if max

end;

Больше и меньше

var x,a,b:longint;

begin

read(a,b);

if (a

if (ab) then write('') else if (a=b)then write('=');

end.

Получите свидетельство о публикации сразу после загрузки работы



Получите бесплатно свидетельство о публикации сразу после добавления разработки


Серия олимпиад «Весна — лето 2024»



Комплекты учителю



Качественные видеоуроки, тесты и практикумы для вашей удобной работы

Подробнее

Вебинары для учителей



Бесплатное участие и возможность получить свидетельство об участии в вебинаре.


Подробнее