5(a)составить программу в паскаль
10-11 класс
|
program p1;
var x,y:real;
begin
writeln('введите значение x и y');
readln(x,y);
x:=sqr(x);
y:=sqr(y);
if x+y<=9 then writeln ('да') else writeln ('нет');
end.
в abc.net вроде так
var
x,y:integer;
f:boolean;
begin
write('Введите х и у: ');
readln(x,y);
f:=((x*x+y*y)<=9);
writeln(f)
end.
Другие вопросы из категории
общая длина оставшихся паутинок была минимальна но с любой ветки паучок мог попасть на любую другую возможно не на прямую какова общая длина оставшихся паутинок
Читайте также
пересечения прямых, описываемых уравнениями a1x+b1x=c1 и a2x+b2x=c2. Если прямые пересекаются или не существуют-выдать соответствующее сообщение. 2) даны действительные числа a1, b1, a2, b2. Составьте программу, которая определяет, какая из точек A(a1;b1) или B(a2;b2) лежит на прямой у=2х+1. Если такой точки нет-вывести соответсвующее сообщение.
задание: дана матрица А(N, N). Составить программу подсчета количества положительных элементов, расположенных выше главной диагонали
2. Составить программу для упорядоченное двух элементов по убыванию.
программу меняющихся местами первую и последнюю цифру.
вывести список книг, изданных после 2003 года.
2)составить программу , организующую массив записей о пяти студентах и их оценках по трем предметам. провести сортировку и вывести список отличников.