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

Написать программу для ввода пользователя стороны квадрата и вывести

👇
Ответ:
дима2901
дима2901
08.04.2020

program qq;

var a,s:integer;

begin

writeln('Введите сторону квадрата');

read(a);

s:=a*a;

writeln('Площадь квадрата =',s);

end.

Объяснение:

Да

4,6(36 оценок)
Открыть все ответы
Ответ:
alex27045
alex27045
08.04.2020
1)
#include <iostream>
using namespace std;
void draw_square(int n)
{
    for(int y = 0; y < n; y++)
    {
        for (int x = 0; x < n; x++)
            cout << "*";
        cout << endl;
   }
}
int main()
{
  int n;
  cin >> n;
  draw_square(n);
  return 0;
}

2)
#include <iostream>
using namespace std;
void drawNumbers(int a)
{
   while(a > 0)
   {
      cout << a%10 << endl;
      a /= 10;
   }
}
int main()
{
    int a;
    cin >> a;
    drawNumbers(a);
    return 0;
}

3)
#include <iostream>
using namespace std;
int main()
{
    //можно гораздо быстрей, но мне лень
    int a;
    cin >> a;
    for(int i = 1; i <= a; i++) if(a%i==0) cout << i << " ";
    return 0;
}

4)
#include <iostream>
using namespace std;
void procedure(int a)
{   
     int b = a;   
     int c = 1;   
     while(b > 0)  {c *= 10; b/=10;}   
     while(c > 1)   
     {       
          cout << (a%c)/(c/10) << endl;       
          c /= 10;   
     }
}
int main()

    int a; 
    cin >> a; 
    procedure(a); 
    return 0;
}
4,8(74 оценок)
Ответ:
maximborisoc
maximborisoc
08.04.2020
Var a:array[1..100000] of longint;i,n,max,min:longint;   
begin     
Assign(input,'input.txt');Reset(input);     
Assign(output,'output.txt');Rewrite(output);     
readln(n);
min:=maxint;
max:=0;     
for i:= 1 to n do begin       
readln(a[i]);       
if a[i] mod 2 = 0 then begin         
if a[i] > max then max:=a[i];       
if a[i] < min then min:=a[i];       
end;     
end;     
Writeln('min = ',min);     
Writeln('max = ',max);     
Close(input);Close(Output);   
end.
Например 
вводишь в файл input.txt
5
1
2
3
4
5
он в файле output.txt вывидет
min = 2
max = 4
4,6(64 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ