4 года назад

Напишите пожалуйста программу на языке Паскаль

Знания

Информатика

2 ответа:

MarioJast [145]4 года назад

0 0

Даны три натуральных числа: r1, r2, L... PascalABC.NET

Ирина0994 года назад

0 0

Program natur;
uses crt;
var r1, r2, l:Integer;

begin
Writeln('Введите R1, R2, L');

Readln(r1, r2, l);

if (r1+r2) > l then Write('Окружности имеют 2 общие точки');

if (r1+r2) = l then Write('Окружности имеют 1 общую точку');

if (r1+r2) < l then Write('Окружности не имеют общих точек');

if (r1=r2) and (r1=l) then Write('Окружности совпадают, все их точки - общие);

readln;
end.

На турбопаскале. В принципе и на АВС должно работать

Читайте также

Паскаль. Оператор case.напишите программу, которая по номеру месяца выдает название следующего за ним месяца (при m=1 получаем ф

Павел228

Program example;var m :integer;begin m:=0; writeln('Номер месяца'); read(m); case m of 1:writeln ('Февраль'); 2:writeln ('Март'); 3:writeln ('Апрель'); 4:writeln ('Май'); 5:writeln ('Июнь'); 6:writeln ('Июль'); 7:writeln ('Август'); 8:writeln ('Сентябрь'); 9:writeln ('Октябрь'); 10:writeln ('Ноябрь'); 11:writeln ('Декабрь'); 12:writeln ('Январь'); else writeln ('Это число не является цифрой'); end;end.

0 0

4 года назад

В каком разделе меню табличного процессора Excel находится Мастер диаграмм

Юрий8723847834

На стандартной панели инструментов

0 0

4 года назад

ЛАБОРАТОРНАЯ РАБОТА ПО ТЕМЕ ОПЕРАТОР ВЕТВЛЕНИЯ (СОСТАВИТЬ ПРОГРАММУ ПАСКАЛЬ!!!!)Вариант 2Ввести 3 вещественных числа. Если а<

Анечка Фоменко [427]

Ответ: a,b,s: integer;

begin

write('Г‚ГўГҐГ¤ГЁГІГҐ Г·ГЁГ±Г«Г* a, b: ');

readln(a,b);

if a>0 then s:=a+b

else s:=a*b;

writeln('s=',s);

readln;

end.

Объяснение:

0 0

4 года назад

Почему символом apple стало яблоко

ДенисKo [21]

Есть легенда, что когда-то, когда создавался APPLE, человек, который был организатором, поставил условие: <span>Я хочу, чобы до завтра вы придумали название для нашей компании, а иначе я назову её в честь своего любимого фрукта - яблока.
На следующий день, хорошего названия не последовало, вот так собственно и появилось название APPLE, а соответственно и эмблема.</span>

0 0

4 года назад

Прочитать ещё 2 ответа

Помогите по информатике 7класс. 17,18,19 номера дам 50 баллов

HIP

19)б это подходит лучащейся всего потому что на счёл правого столбца ничего не говорится мы имеем только 50 км/ч

0 0

4 года назад

Прочитать ещё 2 ответа