Uses crt; var a:integer; begin readln(a); if (a mod 2 =0) then writeln('четное') else writeln('нечетное'); if (a mod 10=7) then writeln('оканчивается на 7') else writeln('не оканчивается на 7'); end.
{Заполнить двумерный массив N x N случайными числами из интервала [-10 ; 10], выяснить что больше сумма элементов лежащих над главной диагональю или под главной диагональю.}const nmax = 20;var A:Array[1..nmax,1..nmax] of integer; n,m,i,j,sumN,sumV:integer; beginwrite('Введите число n');readln(n);for i:=1 to n do beginfor j:=1 to n do beginm:= random(20)-10;A[i,j]:= m;write(A[i,j]:4);end;writeln;end; writeln;writeln;for i:=1 to n do beginfor j:=1 to n do beginif i>j then begin write(A[i,j]:4);sumN:= sumN + A[i,j];end;end;writeln;end; writeln;writeln; for i:=1 to n do beginfor j:=1 to n do beginif i < j then begin write(A[i,j]:4);sumV:= sumV + A[i,j];end; end;writeln;end;if sumN > sumV then write('Cумма элементов лежащих под главной диагональю больше')else write('Cумма элементов лежащих над главной диагональю больше');end.
Program schet; var a:integer; label h; begin h: begin writeln('Введите количество палочек: '); readln(a); if (a<=0) then goto h else a:=a+3; writeln('У Тани стало ', a, ' палочек'); end; readln; end.
Program schet; var a,b:integer; begin a:=2015; writeln('Сколько лет проводится олимпиада?'); readln(b); a:=a-b; writeln('Первая олимпиада была проведена в ',a,' году.'); readln; end.
Program schet; var a,b,c,i:integer; begin writeln('Сколько семечек посадил Пятачок?'); readln(a); writeln('Сколько семечек не выросло?'); readln(b); a:=a-b; writeln('Сколько не плодоносных яблонь?'); readln(c); a:=a-c; writeln('На скольки яблонях вкусные яблоки?'); readln(i); a:=a-i; if (a<0) then writeln('Выросло 0 яблонь с невкусными яблоками.') else writeln('Выросло ',a,' яблонь с невкусными яблоками.'); readln; end.
Program schet; var a:real; begin writeln('Введите число, которое нужно округлить:'); readln(a); a:=round(a); writeln('ответ после округления: ',a); readln; end.
var a:integer;
begin
readln(a);
if (a mod 2 =0) then writeln('четное') else writeln('нечетное');
if (a mod 10=7) then writeln('оканчивается на 7') else writeln('не оканчивается на 7');
end.