Предмет: Информатика,
автор: lerUSiA228
СДЕЛАЙТЕ, ПРОШУ, это программа для Паскаля....
З клавіатури вводяться числа m та n (m — початок діапазону, п — його кінець). Потрібно знайти суму всіх парних чисел, які належать цьому діапазону. Для цього потрібно використати циклічні структури, оператори умови та функцію mod.
lerUSiA228:
если бы я в этом что-то шарила, уже бы сделала это... лол))
Кто не понял как делать там надо при помощи цикла for перебирать каждое число диапазона и проверять делится оно на 2 без остачи или с остачей если без остачи то оно парное эти числа нужно плюсовать в переменную и получится сума парных чисел
вот что мне ответили, пх.
а вот это вот с этими структурами нам сказала делать учительница. зачем, почему - без понятия
вот что мне ответили, пх.
а вот это вот с этими структурами нам сказала делать учительница. зачем, почему - без понятия
я, честно, пыталась понять, но реально, ничего, тупо ничего не получается. а информатика нужна, не спорю. только вот у меня трабблы именно с Паскалем, а не всей инф-ой
я даже написала половину этой программы. думала, что всю - так нет, это половина!
// обчислення
program MyProgram;
var m,n,x: integer;
begin
readln (m,n);
x:= m mod n;
writeln (x);
end
вот. кхм
program MyProgram;
var m,n,x: integer;
begin
readln (m,n);
x:= m mod n;
writeln (x);
end
вот. кхм
Я же говорила, что не шарю. Делала по примеру, который она кинула.
Ответы
Автор ответа:
1
===== PascalABC.NET =====
begin
var (m, n) := ReadInteger2('Введите границы диапазона:');
if m > n then // если границы ввели "наоборот"
Swap(m, n);
Range(m, n).Where(p -> p.IsEven).Sum.Print
end.
Приложения:
Пишу, как она сказала:
С клавиатуры вводятся числа m и n (m - начало диапазона, п - его конец). Нужно найти сумму всех четных чисел, принадлежащих этому диапазону. Для этого нужно использовать циклические структуры, операторы условия
С клавиатуры вводятся числа m и n (m - начало диапазона, п - его конец). Нужно найти сумму всех четных чисел, принадлежащих этому диапазону. Для этого нужно использовать циклические структуры, операторы условия
и функцию mod.
Например, program: MyProgram var a, b, x: integer begin readln (a,b) x:= a mod b: writeln(x) end.
Значит, 8 mod 7 = 1, так как 5 mod 3 = 2, 8 mod 2 = 0, 9 mod 6 = 3. Нужно сделать проверку: если остаток =0, число - четное, по-другому - нет
До программы нужно писать комментарий.
Вот полностью её задание. Стоит ли говорить, что я ни черта не понимаю?
Например, program: MyProgram var a, b, x: integer begin readln (a,b) x:= a mod b: writeln(x) end.
Значит, 8 mod 7 = 1, так как 5 mod 3 = 2, 8 mod 2 = 0, 9 mod 6 = 3. Нужно сделать проверку: если остаток =0, число - четное, по-другому - нет
До программы нужно писать комментарий.
Вот полностью её задание. Стоит ли говорить, что я ни черта не понимаю?
ну, что сказать, супер
А можешь помочь... исправить и кое что добавить? Ну, что бы нормальная программа получилась. Пожалуйста...:(
// коммент
program MyProgram;
var
m, n, s, i:integer;
begin
write ('Введите начало диапазона= ');
read (m);
write ('Введите конец диапазона');
read (n);
for i:= m to n do
if i mod 2=0 then
writeln ('Сумма всех четных чисел = ', s)
end
// коммент
program MyProgram;
var
m, n, s, i:integer;
begin
write ('Введите начало диапазона= ');
read (m);
write ('Введите конец диапазона');
read (n);
for i:= m to n do
if i mod 2=0 then
writeln ('Сумма всех четных чисел = ', s)
end
ладно, и на том спасибо..
Похожие вопросы
Предмет: Английский язык,
автор: Kuanysh1997
Предмет: Українська мова,
автор: irinka2612
Предмет: Беларуская мова,
автор: 00Дашуля00
Предмет: Математика,
автор: natamot