Главная arrow icon Вопросы arrow icon Учеба и наука arrow icon Информатика arrow icon Задача по информатике

Задача по информатике - вопрос №566647

Кто поможет решить задачу в турбо паскале?

С помощью цикла с предусловием, подсчитать сумму и произведение кратных 5 на интервале от К до Л ?

Алексей Серебряный
28.02.13
Учеба и наука / Информатика
1 ответ

Лучший ответ по мнению автора

Валентина

program zad;

uses crt;

var a,K,L:integer; s,p:longint;

begin

clrscr;

writeln('vvedite granici K,L');

readln(K,L);

s:=0; p:=1;

a:=(L div 5)*5;

while a>=K do

begin

  s:=s+a;

  p:=p*a;

  a:=a-5;

end;

writeln('s=',s);

writeln('p=',p);

readln;

end. 
02.03.13
Лучший ответ по мнению автора

Еva
от 100 p.
Рейтинг: 121 998
6-й в Учебе и науке
Читать ответы
Посмотреть всех экспертов из раздела Учеба и наука > Информатика
Пользуйтесь нашим приложением Доступно на Google Play Загрузите в App Store
  • карты visa
  • карты master card
  • карты maestro
  • карты МИР
Мы используем файлы cookie. Пользуясь сайтом, вы принимаете условия нашего соглашения. Принять Детальнее