М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
veikson
veikson
07.11.2022 21:26 •  Информатика

Не могу решить задание по информатике!! Нужно

👇
Ответ:
Tasik3
Tasik3
07.11.2022

ответ:

Объяснение:

ЧТ

4,5(56 оценок)
Открыть все ответы
Ответ:
wenefep07126
wenefep07126
07.11.2022
#include <iostream>
using namespace std;
int main()
{
setlocale (0,"");
int n1,n2,n3,p1,p2,p3;
cout<<"введите количество учеников в каждом классе"<<endl;
cout<<"1-";
cin>>n1;
cout<<"2-";
cin>>n2;
cout<<"3-";
cin>>n3;
    p1=n1/2; if (n1%2!=0) p1++;
    p2=n2/2; if (n2%2!=0) p2++;
    p3=n3/2; if (n3%2!=0) p3++;
cout<<"для первого класса - "<<p1<<endl;
cout<<"для второго класса - "<<p2<<endl;
cout<<"для третьего класса - "<<p3<<endl;
return 0;
}
4,5(98 оценок)
Ответ:
сехун2
сехун2
07.11.2022
1)
   var
 a:array[1..100]of real;
 n,p,q,q1:real;
 i:integer;
   begin
    for i:=1 to 100 do
     begin
      read(a[i]);
      if a[i]>=0 then
       begin
        p:=p+a[i];
        q:=q+1;
       end;
      if a[i]<0 then
      begin
       n:=n+a[i];
       q1:=q1+1;
      end;
    end;
   writeln('positive:',p/q);
   writeln('negative:',n/q1);
 end.

2)
      uses crt;
var
n:real;
i:integer;
 begin
 n:=0.5;
 write('  Pounds','       Kg');
 writeln;
   for i:=1 to 20 do
    begin
    write ('    ',n,'       ', n*0.4);
    n:=n+0.5;
    writeln;
    end;
  
 end.

3)
  uses crt;
var
x:integer;
 begin
  write(' x','        y');
  writeln;
   for x:=-5 to 5 do
   begin
      write(x,'       ');
      write(5*(x*x)-(2*x)+1);
      writeln;
   end;
   end.
4,6(93 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ