Даны 2 чиса.Найти кол-во,сумму и ср. арифметич. этих чисел.Задачу решить тремя циклами:Repeat,While,For.Паскаль

Ответы:

Количество я уже нашел.
2!

Web

ограничения по числам есть какие-то?

Ну например зачем для суммы цикл непонятно, если можно так:
var: a,b,c: real;
a:=strtofloat(edit1.text);
b:=strtofloat)edit2.text);
c:=a+b;
Label1.Caption:=floattostr(c);
end.
Для количества:
В разделе var добавь
var k: integer;
a:=strtofloat(edit1.text);
b:=strtofloat(edit2.text);
k:=0;
while k<=b
k:=k+1;
Label1.Caption:=inttostr(k);
end;
Через for
for i:=a to b do begin
Остальное тоже самое.
Через repeat не помню.
Можт чото накосячил давно изучал это.

Web

For
var
a,b,k,s,i:longint;
begin
readln(a,b);
s:=0;
for i:=a to b do begin
inc(k);
s:=s+i;
end;
writeln('kol-vo',k );
writeln('summa',s);
writeln('sr. arifm',s/k);
end.

15 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.