Вариант номер 1:

program c1ba;
var a:byte;
p:real;
begin
p:=10;
a:=1;

repeat begin
p:=p+(p/10);
a:=a+1;
end;
until p>=20;

writeln('a=',a);
<span>end.

Вариант номер 2:
program c1ba;
var a:byte;
p:real;
begin
p:=10;
a:=1;
while p<=20 do begin
p:=p+(p/10);
a:=a+1;
end;

writeln('a=',a);
<span>end.</span></span>

0 0

4 года назад

Як маючи лише 2 глечики місткістю 2 і 7 літрів,набрати з криниці 3 літри води ? Скласти алгоритм.

Давид007

1. Набрать 7л.

0 0

4 года назад

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

Кирилл Щукин [24]

/*VS C++*/
#include <iostream>
using namespace std;
int main() {
   setlocale(LC_ALL, "Russian");
   cout << "Выберите животное:" << endl;
   cout << "1 - Собака" << endl;
   cout << "2 - Петух" << endl;
   cout << "3 - Кот" << endl;
   int a;
   cin >> a;
   switch (a) {
   case 1: {
       cout << "Гав-гав." << endl;
       break;
   }
   case 2: {
       cout << "Кукареку." << endl;
       break;
   }
   case 3: {
       cout << "Мяу." << endl;
       break;
   }
   default: cout << "Животное с таким номером отсутствует!" << endl;
   }
   system("pause");
   return 0;
}

0 0

4 года назад