var
a, b, ans: Integer;
begin
Readln(a, b);
ans := 0;
while ans * b <= a do
ans := ans + 1;
ans := ans - 1;
Write(ans,' ', a-(ans*b));
end.
1 дюйм = 2,54 см
7,62 см * 7,62 см = 3 дюйма * 3 дюйма
Количество точек сканированного изображения = 1200*1200*3*3
32 бита = 32/8 байт = 4 байта
Объем изображения = 1200*1200*3*3*4 байт = 1200*1200*3*3*4/1024 Кбайт = 50625 Кбайт = 50625/1024 Мбайт ≈ 50 Мбайт
Компьютерная графика- моделирование картинки в 3D. Используется при монтаже видио, в фильмах и мультах
// - комментарии, можешь не писать, это пояснение для тебя
var z,a,b,c,d,e,f: integer;
begin
Write('Введите пятизначное число'); read(z);
a:=a div 10000; // число десятков тысяч
b:=a mod 10000 div 1000; // число тысяч
c:=a mod 1000 div 100; // число сотен
d:=a mod 100 div 10; // число десятков
e:=a mod 10; // число единиц
f:=a+b+c+d+e; // сумма цифр
Writeln('Цифры: ', a,b,c,d,e);
Write('Сумма цифр: ',f);
end.
Var
a: array[1..7] of string = ('Понедельник', 'Вторник', 'Среда', 'Четверг', 'Пятница', 'Суббота', 'Воскресенье');
av: real; i, t: integer;
begin
writeln('Введите температуру воздуха за неделю.');
for i := 1 to 7 do
begin
write(a[i], ' -> '); readln(t); av := av + t;
end;
av := av / 7;
writeln('Средняя температура за неделю: ', av:0:2, ' град.');
readln;
end.