составить программу вычисления значения суммы чисел: 14;15;16;17;.... пока сумма не достигнет числа k помогите без вас некуда
Answers & Comments
jaaagga
Исправил на верное прошу прощение за ошибку не понял ваш вопрос просто. Вводим число 17 для i и программа начинает работать вот так 14+15+16+17=62 Вот правильная программа: Program сhet2; uses crt; var x,y,i:integer; begin textcolor(11); writeln('Введите i: '); //В твоем случае это 17 readln(i); y:=0; for x:=14 to i do begin y:=y+x; end; writeln (y); readln(); end.
2 votes Thanks 1
contrlc
В условии написано: "Составить программу вычисления значения суммы чисел: 14;15;16;17;.... пока сумма не достигнет числа k ", т.е. 14+15+16+17... пока сумма не достигнет числа k.У вас просто выводятся числа 1;2;3...k.
jaaagga
а вы уверены? Мне спасибо сказали что все работает. Я даже переспросил автора вопроса должно ли так быть? (1 2 3 4 5 и т д пока не дойдет до указанного числа). Мне автор ответил да. ВЫ читать не умеете отзывы? Сказали же мне спасибо все работает.
contrlc
И языка программирования там нет, значит можно писать на любом.
jaaagga
Вы совсем "тун дук"??? Я автора спросил на каком языке программирований написать(Pascal, Javascript, C++) Мне автор ответил на паскаль. Почему вы такой сложный?
jaaagga
Прежде чем что то удалять прочтите внимательно что написано.
contrlc
Это должно быть в условии, а не в комментариях
contrlc
И почему же автор отметил нарушение в вашем ответе?)))
jaaagga
Хмм и вправду не заметил. Значит я не так понял вопрос.
Answers & Comments
Вводим число 17 для i и программа начинает работать вот так 14+15+16+17=62
Вот правильная программа:
Program сhet2;
uses crt;
var x,y,i:integer;
begin
textcolor(11);
writeln('Введите i: '); //В твоем случае это 17
readln(i);
y:=0;
for x:=14 to i do begin
y:=y+x;
end;
writeln (y);
readln();
end.