Ответ:
program h;
uses crt;
var a, b, c: Integer;
begin
ReadLn(a, b, c);
if a+b+c>=200 then WriteLn('Выходит')
else WriteLn('Не выходит');
end.
Объяснение:
Первая строка: "h" можно заменить - это название программы
var - объявление переменных, Integer - целочисленные
readln - ввод трёх чисел
writeln - вывод ответа
var a,b:integer;
function f(a,b:integer):integer;
begin
if (a<>0) and (b<>0) then begin
if (a>b) then
a:=a mod b else
b:=b mod a;
f(a,b);
end else
writeln(abs(a-b));
end;
BEGIN
writeln('Введите 2 натуральных числа');
readln(a,b);
write('НОД(',a,',',b,') = ');
f(a,b);
end.
<span>327680 бит или 320 Кбит
думаю так!</span>
Ответ:
1)Устройство, преобразующее входной аналоговый сигнал в дискретный код
2)Элемент, выполняющий в языке программирования определенную функцию
Объяснение:
Program yslovie;
var a,b,c:real;
begin
Writeln('Введите а');Readln(a);
Writeln('Введите b');Readln(b);
Writeln('Введите c');Readln(c);
if (b>a) and (b<c) then Writeln('Условие выполняется, ',a,'<',b,'<',c)
else Writeln('Условие не выполняется')
end.