Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program ssd;
uses crt,graph;
var a,a1,a2,a3: integer;
begin
clrscr;
writeln('введите трехзначное число');
readln(a);
a1: = a mod 10;
a2: =(a div 10) mod 10;
a3: = a div 100;
writeln(' ',a1,a2,a3);
readkey;
end.
program nn;
uses crt;
var a: array [1..20] of real;
t: real;
i,n,min: integer;
{ввод последовательности, это самостоятельно}
min : = 1;
for i : = 1 to 20 do
if a[i] < a[min] then
min : = i;
end;
t : = a[min];
a[min] : = a[20-n];
a[20-n] : = t;
необходимо (но не достаточно).
ток-кот=кто это 954-459=495. бра+бар=раб это 495+459=954
Популярные вопросы