Желательно подробно, чтобы разобраться)) )
Заранее спасибо!
Домашние задания: Другие предметы
Напишите на языке Паскаль программу для подсчета количества и суммы четных чисел в диапазоне от 2 до 20. Срочно!
Не Важно
346
Язык: паскаль. Program alfa var i,n,sum:integer; begin writeln('Введите n'); readln('n'); ////Тут возможны два решения, с циклом и без. Вот первое: sum:=0; for i:=1 to n do if i mod 2 =0 then sum:=sum+i; writeln(sum); end. ////Второе, более быстрое, использующее формулу суммы первых членов арифметической прогрессии: if n mod 2=1 then n:=n-1; sum:=((2+n)/2)*n/2; writeln(sum); end.
begin writeln('Количество=10'); writeln('Сумма=110'); end.
Фаррух Закиров
64 477
program summa_chetnykh; var i, k, sum: integer; begin k := 0; sum := 0; for i := 1 to 10 do begin k := k + 1; sum := sum + 2 * i; end; writeln ('Количество - ', k, ', сумма - ', sum) end.
Язык: паскаль. Program alfa var i,n,sum:integer; begin writeln('Введите n'); readln('n'); ////Тут возможны два решения, с циклом и без. Вот первое: sum:=0; for i:=1 to n do if i mod 2 =0 then sum:=sum+i; writeln(sum); end. ////Второе, более быстрое, использующее формулу суммы первых членов арифметической прогрессии: if n mod 2=1 then n:=n-1; sum:=((2+n)/2)*n/2; writeln(sum); end.
program summa_n; var i,sum:integer; begin sum:=0; i:=2; while i<=20 do begin sum:=sum+i; i:=i+2; end; writeln ('Summa: ',sum); end. Такая подойдёт? Более подробно не могу написать, т. к в информатике не оч шарю.. )
program x; var a, b, i:integer; begin b:=0; a:=0; for i:=2 to 20 do if (i mod 2)=0 then begin a:=a+i; b:=b+1; end; write('Сумма=', a, ', ', 'количество=', b); end.
Анжела Лебедева
395
program summa_chetnykh; var i, k, sum: integer; begin k := 0; sum := 0; for i := 1 to 10 do begin k := k + 1; sum := sum + 2 * i; end; writeln ('Количество - ', k, ', сумма - ', sum) end.
program summa_chetnykh; var i, k, sum: integer; begin k := 0; sum := 0; for i := 1 to 10 do begin k := k + 1; sum := sum + 2 * i; end; writeln ('Количество - ', k, ', сумма - ', sum) end. program summa_n; var i,sum:integer; begin sum:=0; i:=2; while i<=20 do begin sum:=sum+i; i:=i+2; end; writeln ('Summa: ',sum); end. Такая подойдёт? Более подробно не могу написать, т. к в информатике не оч шарю. . )
Мария Тимина
232
Вероника
209
program summa_n; var i,sum:integer; begin sum:=0; i:=2; while i<=20 do begin sum:=sum+i; i:=i+2; end; writeln ('Summa: ',sum); end.
Ильшат Ахсанов
197
ПРОГРАМмИСТЫ ВСЕ)
програм сам
Саян Цындескин
130
брееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееед полный
Ваня Онищук
120
program summa_chetnykh; var i, k, sum: integer; begin k := 0; sum := 0; for i := 1 to 10 do begin k := k + 1; sum := sum + 2 * i; end; writeln ('Количество - ', k, ', сумма - ', sum) end.
Альнур Берекешев
103
Похожие вопросы
- докажите что б) сумма четного и нечетного чисел - число нечетное
- как представить данные в программах на языке Паскаль? Укажите разницу между переменной и константой .
- Помогите пожалуйста написать украинский язык!!! СРОЧНО!!!
- сколько простых чисел равны сумме двух простых чисел и одновременно разности 2 простых чисел
- как доказать, что если х, у - произвольные числа, то ху(х + у) и ху(х - у) - чётные числа? не получается что-то совсем(
- известно что 30%числа а на 20 больше ,чем 25%числа б,а 30%числа б на 8 больше,чем 20%числа а .Найдите числа а и б
- Срочно! ъ. Напишите плиз 10 слов из словаря которые всегда только во множественном числе, срочно! Домашку делать надо!!!
- Чётные числа это какие? А нечётные? Забыла!!! :(((
- Сумма двух чисел равна 790, а их разность равна 200. Найдите оба числа. Решите задачу арифметическим способом.
- Разность квадратов двух натуральных чисел равна 25, а сумма этих чисел тоже равна 25. Найдите эти числа.