Нажимая на кнопку "Задать вопрос", я даю согласие на обработку персональных данных

Задать вопрос
Задать вопрос
  • 1) Определить, является ли заданное целое число а двузначным числом. (Разветвляющийся алгоритм)

    2) Вывести все нечетные однозначные числа. (Цикл)

    3) Найти сумму нечетных элементов одномерного массива. (Массив)

    все в паскале

    • 19 March 2011
    • Ответ оставил: xXxAikaxXx

    1)

    program z1;

    Var a:integer;

    Begin read(a);

    if (a>9) and (a<100) then writeln(a, '-двузначное число')

    else writeln(a, '-не является двузначным числом');

    end.

    2)

    program z2;

    Var i:integer;

    Begin

    for i:=1 to 9 do if (i mod 2 = 1) then writeln(i, ', ');

    end.

    2 способ:

    program z2;
    Var i:integer;
    Begin
    i:=1;
    while i<=9 do
    begin write(i, ', ');
    i:=i+2;
    end;
    end.

    3)

    program z3;
    Var i,n:integer;
    S:real;
    a: array[1..100] of real;
    Begin
    write('Введите количество элементов массива:');
    readln(n);
    write('Введите элементы массива:');
    for i:=1 to n do read(a[i]);
    i:=1; S:=0;
    while i<=n do
    begin S:=S+a[i];
    i:=i+2;
    end;
    write('S=',S);
    end.

    • НЕ НАШЛИ ОТВЕТ?
    Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету школьной программы: английский язык.
    На сегодняшний день (09.12.2022) наш сайт содержит 244787 вопросов, по теме: английский язык. Возможно среди них вы найдете подходящий ответ на свой вопрос.
  • Нажимая на кнопку "Ответить на вопрос", я даю согласие на обработку персональных данных

    Ответить на вопрос

Последние опубликованные вопросы

In your country at what times are the shops generally open? Почему сокращается численность Казахстанских козерогов?​ Why did people stay in their homes as much as possible?                A. The weather was cold B. There were many thievesC. There were police officers​ Use of English/ Task 4. Read and choose. 1. I enjoy to swim/ swimming. 2. I want to eat/ eating. 3. I hate to work/working on Sunday. 4. I want to learn/ learning Spanish. помогить, соч последнее ... B) Write sentences use Past Simple and Past Continuous 1)When/Alice/wake up /it/rain 2) Her/mother/make/breakfast/ when /she/come /home​ Topic 2. Write an article to a newspaper (120-150 words) describing the last Sport Competition where you or your friends participated (in a country or abroad) using Past tenses. Try to mention thes... сүт қоректілердің не жатады ​ Что делает человек, чтобы хорошо учиться в школе? Выбери и выпиши глаголы в форме прошедшего времени.1) Did he lived / live with his parents?2) She goed / went to the cinema last weekend.3) We didnt met / meet them at the station.​ Помогите срочно! Rewrite the sentences in reported speech 1. Saule said, "I have never been to Nursultan. I think I will go there next year." 2. Mother said to us, "Did you go to the museum this ... Написать эссе на тему «Преимущества и недостатки игры подростков в компьютерные игры» Кол-во-(90-100 слов) Даю 20 баллов... ​ Упражнения на отработку be going to, will, Present Continuous or Present Simple. Выражения будущего времени. 7 классTask 1I. Complete these sentences using be going to, will, Present Continuous or ...
*{ message }*