#include <iostream> using namespace std; int main() { setlocale(0,""); // это что бы на русском было cout<<" Сижу за решеткой в темнице сырой."<<endl; cout<<"Вскормленный в неволе орел молодой,"<<endl; cout<<"Мой грустный товарищ, махая крылом,"<<endl; cout<<"Кровавую пищу клюет под окном,"<<endl; cout<<"Клюет, и бросает, и смотрит в окно,"<<endl; cout<<"Как будто со мною задумал одно;"<<endl; cout<<"Зовет меня взглядом и криком своим"<<endl; cout<<"И вымолвить хочет: «Давай улетим!"<<endl; cout<<"Мы вольные птицы; пора, брат, пора!"<<endl; cout<<"Туда, где за тучей белеет гора,"<<endl; cout<<"Туда, где синеют морские края,"<<endl; cout<<"Туда, где гуляем лишь ветер... да я!..»"<<endl; return 0; }
1. Оператор цикла предназначен для выполнения большого количества однотипных вычислений, отличающихся только значениями переменных, входящих в формулу. Например, вычисление значений формулы y=sin(x) для х=1..10 с шагом 1. 2. В языке Паскаль существуют циклы: с параметром (FOR), с предусловием (WHILE..DO), с постусловием (REPEAT...UNTIL). 3. Оператор FOR для примера п.1 имеет вид: FOR K:= 1 TO 10 DO Y[K]:=SIN(K). Если в теле цикла будет несколько операторов, то они заключаются в операторных скобки BEGIN...END. 4. Во время исполнения этого оператора переменной Y[K] (элементам маccива Y) последовательно присваиваются значения SIN(K). 5. Оператор FOR применяется в тех случаях, когда число повторений заранее известно (К=1..10). 6-9. Циклы WHILE и REPEAT применяются, когда число повторений заранее неизвестно, например, для вычисления суммы ряда с заданной точностью, но их можно применять и для расчета по предыдущему примеру. K:=0; WHILE K<11 DO BEGIN K:=K+1; Y[K]:=SIN(K) END; или для цикла REPEAT: K:=0; REPEAT K:=K+1; Y[K]:=SIN(K} UNTIL K>10; Для вычислений эти циклы равносильны, но есть одно (иногда решающее) отличие - цикл WHILE не будет выполнен ни разу, если условие сразу ложно, а цикл REPEAT сначала выполнит одну операцию, а потом, если условие окажется ложным, остановится.
begin
writeln ('Введите числа через пробел последовательно ');
read (a,b,c);
a:=a+b+c;
writeln (a);
end.