var
summ, c:integer;
begin
write('Введите число '); readln(c);
summ := c mod 10 + (c div 10) mod 10 + c div 100;
writeln('Сумма цифр числа ', c , ' равна ', summ);
end.
Держи ответ тебе ) надеюсь все понятно ) если что спрашивай )
Const
m = 10;
var
a: array[1..m] of integer;
i,j, min: integer;
begin
write ('Исходный массив: ');
for i := 1 to m do
begin
a[i] := random(100);
if (i=1) or (a[i]<min) then min:=a[i];
write (a[i],'; ');
end;
writeln;
for i:=1 to m do
begin
if a[i]=min then
begin
for j:=i to m-1 do
a[j]:=a[j+1];
break;
end;
end;
a[m]:=0;
write('Измененный массив: ');
for i := 1 to m-1 do
write (a[i],'; ');
<span>end.</span>
А компьютер не выделяет красненьким примерное место, где есть ошибка?
uses crt;
var kletka,i,vremya:integer;
begin
kletka:=1;
write ('vvedite vremya');
read(vremya);
vremya:=vremya div 5;
for i:=1 to vremya do
kletka:=kletka*4;
write ('kletok stanet- ',kletka);
end.