ответ: program y;
var a,b,c: real;
begin
a:=1/2;
b:=1/4;
c:=a+b;
writeln(c);
end.
Объяснение:
Вот те короче на Паскаль
Объяснение:
Это а) Если это то, что тебе нужно, то внизу б) скину
Program pr1(output);
var a:integer;
begin
write('a = ');
read(a);
if a mod 10 = a div 100 Then
write('Есть одинаковые числа');
if a mod 10 = a div 10 mod 10 Then
write('Есть одинаковые числа');
if a div 100 = a div 10 mod 10 Then
write('Есть одинаковые числа');
end.
