DashaZhur1752
11.09.2022 10:39

Информатика

Напишите программу на ПАСКАЛЕ умножения всех четных в последовательности 10 целых чисел.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Rifik
06.06.2022 16:52

Стандартный обозреватель Windows прост и практичен, но из-за того , что в нём довольно передовое применение , он не может показать максимально чётко картинку при приближении .

 

Adobe Photoshop - самый много функциональный гррафический обозреватель , он же и редкатор благодаря этой программе можно смотреть картинку в отличном качестве при большом приблежении , так же можно редактировать её в самых разных и этих очень много , так как комбинация всех функций данной утилиты почти бессконечна,

 

Picasa -  многофункциональный органайзер для фото  С данной утилиты можно просматривать, редактировать, искать, печатать изображение, создавать слайд-шоу, делится своими фото, создавать коллаж , делать снимки экрана и множество других не менее полезных функций которые не могу не радовать поьзователя .

 

FastStone Image Viewer - бесплатная программа для просмотра картинок. С программы можно просматривать, изменять, сравнивать изображения, удалять эффект красных глаз, изменять размер, кадрировать, ретушировать, изменять цветокорекцию и многое другое.

 

На самом деле в интернете очень большое разнообразие программ 

0,0(0 оценок)
Ответ:
Kisapodkaifom
13.10.2020 23:31
1.                                                    

program raf105;

var  

 i: integer;

begin

 for i:=50 to 57 do

   writeln(i,' ');

end.

2.                                                    

program raf105;

var  

 i,c,sum: integer;

 sari: real;

begin

 for i:=6 to 14 do

 begin

   sum:= sum+i*i;

   c:= c+1;

 end;

 sari:= sum/c;

 writeln('Среднее арифметическое: ',sari);

end.

3.                                                    

program raf105;

var  

 i,n,sum: integer;

begin

 write('n = ');

 readln(n);

 for i:=1 to n do

   if i mod 2 = 0

     then sum:= sum+i*i;

 writeln('Сумма квадратов чётных чисел: ',sum);

end.

                                                     PascalABC 3.4.2
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота