1)uses crt; var x,a,b,c,i: integer; begin cls; write('введите число: '); readln(x); a: = x div 100; b: = (x - a*100) div 10; c: = (x - a*100 - b*10); if (a=b) or (a=c) or (b=c) then writeln('есть одинаковые цифры') else writeln('одинаковых цифр нет'); end.2)uses crt; var x: real; begin cls; write('сумма покупки: '); readln(x); if x> 1000 then x: =x-(x*0.1); writeln('стоимость с учётом возможной скидки ',x); end.
Program task; var p:array[1..10] of integer; i, n2, n3, n4, n5:integer; begin n2:=0; n3:=0; n4:=0; n5:=0; {n2 - n5 - колич. 2-ек, 3-ек и т.д.} writeln('Введите 10 элементов массива, отметки от 1 до 5'); for i:=1 to 10 do {ввод исходных данных} begin write('p[',i,'] = '); readln(p[i]) end; for i:=1 to 10 do {решение, перебор таблицы и суммирование} begin if p[i] = 2 then n2:=n2+1; if p[i] = 3 then n3:=n3+1; if p[i] = 4 then n4:=n4+1; if p[i] = 5 then n5:=n5+1 end; writeln('n2 = ',n2); {вывод результатов} writeln('n3 = ',n3); writeln('n4 = ',n4); writeln('n5 = ',n5); writeln('всего оценок',n2+n3+n4+n5) end.
uses crt;
var a:integer;
begin
a=5;//Сюда твое данное число
//Если с клавиатуры вводить,то тогда пиши readln(a);
If a mod 2=0 then write('Чётное')
else write('Нечётное');
end.