1. Информатика
  2. Составить блок схему и программу

Составить блок схему и программу для вычисления суммы квадратов чисел до тех пор пока квадрат очередного числа не превысит 50

abdrazakovernat abdrazakovernat    3   04.06.2019 00:20    2

Ответы
Andriuy2003 Andriuy2003  01.10.2020 18:59
Var a,x,s: integer;
begin 
 a:=0; 
while a<50 do begin
readln(x); 
   a:=x*x; 
  s:=s+a; 
 end; 
 writeln(s);
  readln;
end;
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
gulya104 gulya104  25.04.2020 16:07
Написать название компонента или свойства в среде программирования Lazarus.кто знает что писать?​...
Sabico Sabico  25.04.2020 16:08
Запишите программу на языке Паскаль (в программе PascalABC.net ) для вычисления функции F. Вычисление самой F оформите через подпрограмму -функцию. В оновной программе выведите на...
dianafaizullin1 dianafaizullin1  25.04.2020 16:08
1. Что такое микротравма? Ее влияние на организм человека. 2. Виды нагрузок и их влияние на организм человека при работе на компьютере. 3. Что означает ПВПН и ПТВРК? К каким последствиям...
Panther111 Panther111  25.04.2020 16:08
В одной из кодировок Unicode каждый символ кодируется 16 битами. Ванянаписал имена своих друзей (в тексте нет лишних пробелов). Подумав, он добавил ещеодно имя. Заодно он добавил...
castlecrashers castlecrashers  04.03.2019 09:40
Спортивное табло состоит из лампочек, которые могут находиться в 2-ух состояниях вкл-выкл. сколько лампочек необходимо для 56 свет. комбинаций?...
belakova belakova  03.06.2019 20:50
1. определите значение переменной s после выполнения операторов: i: =0; s: =0 while i 5 do begin i: =i+2; s: =s+i*i end; 2. тело цикла while для вычисления значений функций f(x)=x4,...
Zetexer Zetexer  18.03.2021 10:35
5. В равнобедренной трапеции диагональ перпендикулярна боковой стороне. Найди площадь трапеции, если большее основание равно 16√3см, а один из углов трапеции равен 60°. ​...
vikulka1488 vikulka1488  18.03.2021 10:35
НЕ ПИШЕМ ВСЯКУЮ ЕРУНДУ ЗРАЗУ БАН И ВЫ ПОТЕРЯЕТЕ ВСЕ СВОИ БАЛЫ Төменде берілген берілген тайпалар, жанр және стилдік эрикчельктері сай әңгімеып құрастырып жазысқан. Әңгімеде қайыпкерлер...
черныйЗайка черныйЗайка  18.03.2021 10:35
Визначте, скільки метрів нікелінового дроту площею поперечного перерізу 0,1мм^2 знадобиться для виготовлення реостата з максимальним опором 180 Ом !...
Паитаоаипа Паитаоаипа  18.03.2021 10:35
РАБОТА В ПАРЕ 4Реши примеры и выполни проверку.84 659 + 891 362900 007 - 36 289987 887 - 49 879171 600 : 528298 224:45639 483: 321369*9631699*514147 700 - 109СТОЛБИКОМ СТОЛБИКОМ СТОЛБИКОМ...

Популярные вопросы