помогите пожалуйста Написать программку на языке Pascal: 1. Написать программку, которая
Помогите пожалуйста Написать программу на языке Pascal: 1. Написать программку, которая находит среднее арифметическое 2-ух целых чисел; 2. Написать программу, которая исполняет вывод на экран рисунка
Задать свой вопрос1 ответ
Valera Caer
1.
Program z1;
var a,b:integer;
s:real;
begin
Writeln ('Введите 1-ое число:');
readln(a);
Writeln ('Введите второе число:');
readln(b);
s:=(a+b)/2;
Writeln('Среднее арифметическое:',s);
end.
2.
Program z2;
uses graphabc;
begin
setbrushcolor(clblack);
rectangle(100,50,250,350);
setbrushcolor(clred);
circle(175,100,30);
setbrushcolor(clyellow);
circle(175,200,30);
setbrushcolor(clgreen);
circle(175,300,30);
end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Газообразный аммиак объёмом 2.24 л (н.у.) был полностью поглощён 14.68 мл
Химия.
Упражнение 2 Выпишите глаголы и вставьте пропущенные буквы
Русский язык.
Радиус окружности, описанной около равностороннего треугольника, равен 6. Найдите сторону треугольника
Геометрия.
Вычислите силу с которой при давлении 100 КПа атмосфера давит на
Физика.
Синтаксический разбор и схема Но мы сказали, что нам ничего не
Русский язык.
Массовая доля целлюлозы в древесине составляет 50%. Какая масса спирта может
Химия.
помоги мне пожалуста прш
869*(61124-488*125)-50974
Математика.
по шкале высот определить ,в каком направлении происходит понижение релефа уральских гор
География.
Помогите пожалуйста написать Сочинение Овчинникова "победитель'
Литература.
Здравствуйте. Нужен цитатный план испытания лётчика в лесу главы2-13 по повести
Разные вопросы.
Облако тегов