Оперативная память : ddr2, ddr3
Архиватор : zip, 7z
Антивирусная рограмма: DrWeb, Antivirus Kasperski
Коммуникационная программа: Skype
Система программирования: Basic, Pascal
Текстовый редактор: WordPad, MS Word
Графический редактор: Paint, Photoshop
Редактор презентаций : MS PowerPoint
Электронные таблицы: MS Excel
Электронное учебное издание(учебники , тренажер , энциклопедия...) : Kirill and Mefodi
Игра : Leniage
Program Wybor;
uses Crt;
var y, a, b :real;
begin
a:=226.3;
b:=931.3;
if (a-b)<(10*ln(1/3.1415926) ) then y:= b*sqr(x)*x -a*ln(abs(2*x))+sqr(sin(x))
else y:=sqrt(b*sin(x)/cos(x))-exp(3*x);
WriteLn('y=', y:6:3);
ReadLn;
end.
Типа того, только проверь все внимательно, а то ТУРБО устроил мне пляску Святого Витта... Кстати, в Паскале нет тангенса, его заменяем sin(x)/cos(x) и я в программе "СЪЭКОНОМИЛ" описание переменной Х...
А) A = 3, B = 4, C = 5
НЕ (3=4) ИЛИ НЕ (3<5) ⇒ НЕ Ложь ИЛИ НЕ Истина ⇒ Истина ИЛИ Ложь ⇒ Истина
Б) A = -2, B = -2, C = 0
НЕ (-2=-2) ИЛИ НЕ (-2<0) ⇒ НЕ Истина ИЛИ НЕ Истина ⇒ Ложь ИЛИ Ложь ⇒ Ложь
В) A = 0, B = 0, C = -2
НЕ (0=0) ИЛИ НЕ (0<-2) ⇒ НЕ Истина ИЛИ НЕ Ложь ⇒ Ложь ИЛИ Истина ⇒ Истина
Г) A = -2, B = 0, C = -2
НЕ (-2=0) ИЛИ НЕ (-2<-2) ⇒ НЕ Ложь ИЛИ НЕ Ложь ⇒ Истина ИЛИ Истина ⇒ Истина
Ответ: <span>Б) A = -2, B = -2, C = 0 </span>
Держи программу на паскале, если есть вопросы, то пиши
program test1;var x,y,K,N:integer;beginwrite('Введите размер конверта х и у см');read(x);read(y);write('Введите размер открытки K и N см');read(K);read(N);if (x>=K) and (y>=N) thenwrite('открытка войдет')else write ('не войдет');end.
Определяет, является ли число n общим делителем всех меньших его чисел начиная с 2