PascalABC.NET 3.3.5, сборка 1640 от 17.03.2018
Внимание! Если программа не работает, обновите версию!

begin
// 1
var (x,y):=ReadReal2('Введите x и y:');
Writeln((x>0) and (y>0));
// 2
var a,c,d:longint;
Write('Введите число, его квадрат и куб: '); Read(a,c,d);
Writeln((a*a=c) and (a*a*a=d))
end.

Пример
Введите x и y: 3.5 1.8
True
Введите число, его квадрат и куб: 15 225 1225
False

0 0

4 года назад

Помогите, пожалуйста!!!Очень надо!Только пожалуйста, пишите по делу.

Любов2603 [6]

// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
var n:=ReadInteger;
var a:=ReadArrReal(n);
var si:=a.IndexesOf(t->t=0);
if si.Count<2 then Writeln(0)
else Writeln(a[si.First+1:si.Last].Sum:0:3)
end.

Примеры
8
-4.6 3.9 0 2.4 1.7 0 0 2.1
4.100

5
0 0.244 -3.253 0 2.34
-3.009

0 0

4 года назад

Составить программу для вычисления x и y по формулам x=∛(cos^2-c*sina^3) y=ln|(sin(a-b))/(tg4c)|

Mio [3]

Вот программа паскаль

0 0

4 года назад

РЕБЯТ, СРОЧНО, ПОМОГИТЕ С ИНФОРМАТИКОЙ( два номера)!!Напишите программу, которая определяет попадает ли точка с вводимыми с клав

Людмила Волгина

Язык СИ:

#include<stdio.h>

#include<math.h>

int main(){

long double x,y;

scanf("%Lf%Lf",&x,&y);

printf("%s\n",sqrtl(x*x+y*y)<=2?"yes":"no");

return 0;

}

#include<stdio.h>

#include<math.h>

int main(){

long double x,y;

scanf("%Lf%Lf",&x,&y);

printf("%s\n",-2<=x && x<=0 && -2<=y && y<=0?"yes":"no");

return 0;

}

0 0

3 года назад