1) 1.На какие области делится окно редактора SketchUp? Запиши в тетрадь, используя презентацию 1. Чем - id1157048020220224 от aleksaprincessa 24.02.2022 10:46

Question

Информатика: 1) 1.На какие области делится окно редактора SketchUp? Запиши в тетрадь, используя презентацию 1. Чем отличается 2D от 3D, в чем разница? (4 слайд) 2) Этапы создания трёхмерного объекта (5 слайд) 3. Программы 3D графики (6 слайд) 4. Возможности SketchUp (7 слайд) 5. Если есть доступ к компьютеру, скачай программу себе на компьютер или смартфон

aleksaprincessa · Accepted Answer

Точно должно работать для PascalABC.Net (версия 3.2, сборка 1341).
program Task;
var N,i,kol,sum:integer; //По-хорошему, не integer. Потому что мы работаем с натуральными числами, а не отрицательными
begin
read(N);
for i:=1 to N do
begin
if (i mod 15)=0 then kol:=kol+1; //15 - это НОК(3,5)
end;
while (N<>0) do
begin
sum:=sum+N mod 10;
N:=N div 10;
end;
writeln('Количество чисел, делящихся и на 3, и на 5, равно ',kol);
writeln('Сумма цифр числа N равна', sum);
end.

Пиши, если что-то не работает или не понятно :)

MOGZ ответил