1. Информатика
  2. Составить прграмму с командой

Составить прграмму с командой while для решения : найти сумму 1+3+5+7++31.

mariee875maria mariee875maria    1   25.05.2019 01:10    2

Ответы
kat09062004 kat09062004  20.06.2020 23:56
Var x,s:integer;
Begin
 s:=0;
 x:=1;
 while x<=31 do
   begin
    s:=s+x;
    x:=x+2;
   end;
 writeln('S=',s);
End.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
katy12345652564 katy12345652564  17.06.2019 16:20
Решить! 1) городская метеостанция фиксирует температуру воздуха каждые три часа. в июле колебания температуры были в интервале от 0 до 30. специальное устройство записывает температуру...
nastya3162 nastya3162  29.08.2019 23:10
Напишите программу на языке паскаля по этой : ввести число если оно четное положительное разделить его на 4, если оно отрицательное четное умножить его на 5, если не четное возвести...
Рамина1111111 Рамина1111111  29.08.2019 23:10
2. составьте программу, определяющую, является ли сумма цифр данного четырехзначного числа n четным числом. в паскале, большое....
володия володия  29.08.2019 23:10
Какой объем памяти требуется для хранения цифрового аудиофайла с записью звука высокого качества при условии, что время звучания составляет 3 минуты?...
skrrrpapa skrrrpapa  29.08.2019 23:10
1. закрасьте зеленым цветом то, что делать можно, и красным то, чего делать нельзя. входить в кабинет информатики без разрешения учителя. заходить в компьютерный класс спокойно. занимать...
dlyaigrmoih1 dlyaigrmoih1  29.08.2019 23:10
6.перечислите все виды внешней память пк и их объём 7.что такое тактовая частота процессора ? и чему она равна ?...
dimakalabin dimakalabin  09.07.2019 12:10
Дан двумерный квадратный массив a, состоящий из b строк и b столбцов. необходимо найти среднее арифметическое q его положительных элементов и заменить отрицательные элементы главной...
nikitakyznecov703 nikitakyznecov703  09.07.2019 12:10
Решить через рекурсию в pascal. у первоклассника пети m рублей. мороженое стоит k рублей. петя решил наесться досыта мороженого, для этого он покупал по одному мороженому и съедал...
Ага67 Ага67  09.07.2019 12:10
Запишите на языке паскаль следующее выражение: если (a-b) =c, тогда s=a*c, иначе s=a: c...
LLLLLina LLLLLina  09.07.2019 12:10
Если информацию можно использовать то она...

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