- Редактирование фотографий или видео - процесс улучшения, добавления или изменения чего-либо в фото или видео
- Редактирование текста - процесс изменения ранее написанного текста
В каждой области редактирования оперируется главный аргумент - это изменение чего-то, уже существующего.
Program chisla;
uses crt;
var a,b,c : integer;
begin
write('Введите двузначное число: ');
Readln(a);
if (a>99) or (a<10) then Writeln('Введено не двузначное число') else
begin
b:=a div 10;
c:=a-(b*10);
Writeln(b,',',c);
end
end.
//Pascal
var
a, b: integer;
begin
writeln('Введите 2 числа');
readln(a, b);
if abs(a - b) mod 5 = 0 then writeln('Делится нацело')
else
writeln('Не делятся');
end.
<span>
Задача 3.
Покупатель решил потратить в магазине М тенге без остатка. Ему
необходимо приобрести три вида продукции, стоимость которых составляет
X,
Y и
Z тенге
соответственно. Вывести все возможные комбинации покупок. </span>
<span>var k,i,n,e:longint;<span>
</span>f,f1:text;<span>
</span>begin<span>
</span>assign(f,'input.in');<span>
</span>assign(f1,'output.out');<span>
</span>reset(f);<span>
</span>read(f,k,n);<span>
</span>close(f);<span>
</span>rewrite(f1);<span>
</span>if k=31 then writeln('0') else<span>
</span>for i:=k to 31 do<span>
</span>if (i=k+1) then e:=1 else<span>
</span>e:=e+e*2;<span>
</span>e:=e*n;<span>
</span>writeln(f1,e);<span>
</span>close(f1);<span>
</span>end.</span>
Var
n,S,S3:integer;
Begin
Write('n = ');
ReadLn(n);
For n:= 1 to n do
Begin
S:=S+n;
if n mod 3 = 0 then S3:=S3+n;
End;
WriteLn('Сумма чисел [1..',n,'], кратных трём: ',S3);
WriteLn('Сумма всех чисел [1..',n,']: ',S);
End.