Вопрос по информатике:
Помогите пожалуйста с задачами по информатике в паскале!!
1. Ввести целое число a и вывести сумму квадратов всех чисел от 1 до a с шагом 0.1.
Пример:
Введите последнее число:
3
Сумма 91.7
2. Ввести натуральное число A и вывести числа от A до 1 (через одно) в порядке убывания.
Пример:
Введите натуральное число:
8
Ответ: 8 6 4 2
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 25.08.2017 01:35
- Информатика
- remove_red_eye 11378
- thumb_up 44
Ответы и объяснения 1
var a,i:integer; s:real;
begin
writeln('Введите последнее число:');
readln(a);
s:=0;
for i:=0 to round((a-1)/0.1) do
s:=s+(1+i*0.1)*(1+i*0.1);
writeln('Сумма = ',s:4:1);
end.
Пример:
Введите последнее число:
3
Сумма = 91.7
2.
var a,i:integer;
begin
writeln('Введите натуральное число:');
readln(a);
write('Ответ: ');
while a>=1 do
begin
write(a,' ');
a:=a-2;
end;
writeln;
end.
Пример:
Введите натуральное число:
8
Ответ: 8 6 4 2
- 26.08.2017 02:27
- thumb_up 7
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.