1)известны данные о мощности двигателей 20 моделей легковых автомобилей выясните есть ли среди них модель мощность двигателя который превышает 200 л. с. 2)
напечатайте минимальное число больше 200 которое должно делиться на 17
3)известны данные о температуре воздуха в селе Бурабай в течение месяца .Определите сколько раз температура опускалась ниже 0 градусов
8 класс
можно на компьютере или сюда !

Відповідь:

1)известны данные о мощности двигателей 20 моделей легковых автомобилей выясните есть ли среди них модель мощность двигателя который превышает 200 л.с.

#include <iostream>

using namespace std;

int main(){

setlocale(LC_ALL , "Rus");

int input;

for(int i = 1; i < 20; i++){

 cout << "Введите мощность " << i << " автомобиля: ";

 cin >> input;

 if(input > 200){

  cout << "Автомобиль " << i << " Превышает мощность двигателя в 200 л.с" << endl;

 }

}

return 0;

}

Напечатайте минимальное число больше 200 которое должно делиться на 17

#include <iostream>

using namespace std;

int main(){

setlocale(LC_ALL , "Rus");

for(int i = 200;;i++){

 if(i % 17 == 0){

  cout << "Число " << i << " больше 200 и минимальное которое делиться на 17" << endl;

  break;

 }

}

return 0;

}

Известны данные о температуре воздуха в селе Бурабай в течение месяца .Определите сколько раз температура опускалась ниже 0 градусов

#include <iostream>

using namespace std;

int main(){

setlocale(LC_ALL , "Rus");

int temp,counter = 0;

for(int days = 1; days <= 30; days++){

 cout << "Введите температуру в " << days << " день: ";

 cin >> temp;

 if(temp < 0){

  counter++;

 }

}

cout << "Температура опускалась ниже 0 " << counter << " раз." << endl;

return 0;

}

1)

program m; uses crt; var i,a,b,c,min: integer; beginclrscr; readln(a,b,c);

if a< min then min: =a; if b< min then min: =b; if c< min then min: =c; writeln('              ',min); readkey; end.

2)

program m; uses crt; var i,a,b,c,min,d: integer; beginclrscr; readln(a); min: =a; for i: =1 to 2 do                       

                                                                beginreadln(a); if a< min then min: =a;                                                             end; writeln(min);

readkey;

end.

3)

program m; uses crt; var i,a,b,c,min,d: integer; beginclrscr; readln(a,b,c); if a< b then b: =a; if c< a then b: =c; writeln(b); readkey; end.

var a,b: integer;

is7: boolean;

begin

    readln(a);

    b: =0;

    is7: =false;

    while a < > 0 do

    begin

        b: =b+a mod 10;

        if a mod 10 = 7 then

            is7: =true;

        a: =a div 10;

    end;

    wrtieln('сумма цифр: ', b);

    write('цифра 7 ');

    if is7 then writeln('есть') else writeln('нет');

    readln;

end.