Помогите мне пожалуйста это очень срочно
10-11 класс
|
миладий
04 авг. 2016 г., 14:42:49 (7 лет назад)
Lolita55ss
04 авг. 2016 г., 16:06:38 (7 лет назад)
var
A:longint;
n,i:integer;
begin
Write('n =');
readln(n);
for i:=1 to 2013 do
if n <> i then
A:=A+i;
Writeln('n=',n,' Sum = ',A);
Readln;
end.
Ответить
Другие вопросы из категории
Составить программу в паскале с использованием циклических операторов:
найти все натуральные решения уравнения х^2+у^2=М, где М>0 задает пользователь
Читайте также
решить систему методом обратной мтрицы в таблице Ехсеl/
8.3x1 + 3.7x2 - 2.4x3=2.3
3.4x1 - 2.3x2 + 5.2x3=3.5
1.8x1 + 4.3x2 + 1.2x3=-1.2
помогите пожалуйста друзья очень срочно нужен!
Вы находитесь на странице вопроса "Помогите мне пожалуйста это очень срочно", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.