4 года назад

Дана сторона квадрата а, найдите площадь S= a2

Знания

Информатика

1 ответ:

West Coast [6]4 года назад

0 0

Var a:integer;
begin
write('a= '); readln(a);
writeln('Ploschad= ',sqr(a))
end.

Читайте также

Сегодня Али в местном магазине сделал покупку за C тенге. Он только хотел расплатится и услышал от продавца фразу "Без сдачи пож

Денис1980

Var input,output:text; n,i,j,g,nm,ans,t:integer;ara:array[0..1000] of integer;ar,arq:array[0..1000] of integer; ts,sum,a:integer;beginassign(input,'f.in');reset(input); assign(output,'f.out');rewrite(output);readln(input,a,n);ans:=10000;
for i:=1 to n do beginread(input,ar[i]);ts:=ts+2*ar[i];end;
if ts<a then writeln(output,'-1') else
begin

ara[1]:=3;for i:=2 to 15 do begin ara[i]:=3*ara[i-1];end;
for i:=1 to ara[n] do begin if arq[n]<2 then begin inc(arq[n]);sum:=sum+ar[n];inc(nm); end else begin g:=n;while arq[g]>1 do begin sum:=sum-ar[g]*arq[g];dec(nm,arq[g]);arq[g]:=0;dec(g);end;
inc(arq[g]);sum:=sum+ar[g];inc(nm);end;if sum=a then begin if nm<ans then ans:=nm;end;end;
if ans>1000 then writeln(output,'0') else writeln(output,ans); end;
close(output);close(input);end.

0 0

3 года назад

Прочитать ещё 2 ответа

Пожалуйста, помогите решить задание! Выполните операцию сложения над двоичными числами: а) 101010+1101; б) 1010+1010; в) 10101+

Никита131 [5]

Ответ:

55, 12, 27

Объяснение:

+42 +6 +20

13 6 7

55 12. 27

0 0

4 года назад

Получение параметров ямы и количество кубометров воды. Проверка, получится уместить данное количество воды в этом бассейне. Выда

Robles [10]

#include <iostream>
using namespace std;

int main() {
double a,b,c,d;
cout << "Параметры ямы: ";
cin >> a >> b >> c;
cout << "Объем воды: ";
cin >> d;
if (a*b*c>=d) cout << "YES";
else cout << "NO";
return 0;
}

Пример:
Параметры ямы: 2 1.8 0.4
Объем воды: 3.2
NO

0 0

4 года назад

Сколько существует различных трехзначных чисел в пятеричной системе счисления?

Элеонора Федосеева

5СС
количество трёхзначных чисел (5сс) = 444-100+1;
444 (5сс) =4*5^2+4*5+4=100+24=124 (10cc)
100 (5cc)= 25 (10cc)
124-25+1=120 трёхзначных чисел в 5(сс)

0 0

4 года назад

Вывести на экран таблицу значений функции x2 на отрезке [0;1] с шагом 0,1 . Каждое число вывести в 8 позициях на отдельной строк

WalkerMLG [19]

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\";

ПОСТ
h = 0.1;
a = 0;
b = 1;

ПЕР
x: ВЕЩ;

УКАЗ
x := a;
ПОВТОРЯТЬ
Вывод.ЧВещ("\%.8f^", x * x, 0, 0, 0);
x := x + h
ДО x > b

КОН Задание.

0 0

4 года назад