Регистрация
NcsON
23.11.2020 17:11
Информатика
Есть ответ 👍

Программу под паскаль t= √(a-b)^2+4 (a-2b)+1

292
305
Посмотреть ответы 2

Ответы на вопрос:

viktorius1
viktorius1
4,7(63 оценок)
Program math; var x, a, t : real; begin write('введите число a: '); readln(a); write('введите число b: '); readln(b); t : = (sqrt((a-b)*(a-b))+4)/((a-2*b)+1); writeln('t=', t: 10: 4); end.
Простокнигоманка
Простокнигоманка
4,6(59 оценок)
Var a1,a2,b1,b2,c1,c2: integer; begin writeln('координаты превой клетки'); writeln('введите номер столбца'); readln(a1); writeln('введите номер строки'); readln(a2); writeln('координаты второй клетки'); writeln('введите номер столбца'); readln(b1); writeln('введите номер строки'); readln(b2); if ((a1 mod 2) < > 0) then if ((a2 mod 2) < > 0) then c1: =0 else c1: =1; if ((a1 mod 2) = 0) then if ((a2 mod 2) < > 0) then c1: =1 else c1: =0; if ((b1 mod 2) < > 0) then if ((b2 mod 2) < > 0) then c2: =0 else c2: =1; if ((b1 mod 2) = 0) then if ((b2 mod 2) < > 0) then c2: =1 else c2: =0; if c1=c2 then writeln('yes') else writeln('no') end.

Популярно: Информатика