Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 13.03.2015 00:32
- Информатика
- remove_red_eye 9989
- thumb_up 19
Ответы и объяснения 2
1)
program privet;
var
a:string;
Begin
writeln('Как тебя зовут?');
readln(a);
writeln('Привет', a);
End.
2)
program arifmet;
var
a,b,c:integer;
writeln('Введите А');
readln(a);
writeln('Введите Б);
readln(b);
c:=(a+b)/2;
writeln('Среднее арифметическое= ', c);
End.
Сейчас допишу остальные.
- 13.03.2015 04:44
- thumb_up 41
2. Program test;
var
a,b:integer;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
writeln('Ответ: ',(a+b)/2);
end.
3.Var
a,b,c:integer;
begin
writeln('Введите значение А.');
readln(a);
writeln('Введите значение В.');
readln(b);
writeln('А=',a,#10,'B=',b);
writeln('-----------------------');
c:=a;
a:=b;
b:=c;
writeln('A=',a,#10,'B=',b);
end.
4.
Const
p=3.14;
Var
a:integer;
begin
writeln('Введите длину радиуса:');
readln(a);
writeln(2*p*a);
end.
5.
var
a,b:integer;
begin
writeln('Введите число A.');
readln(a);
writeln('Введите число B.');
readln(b);
a:=a*a;
b:=b*b;
writeln('a+b=',a+b,#10,'a-b=',a-b,#10,'b-a=',b-a,#10,'a*b=',a*b,#10,'a/b=',a/b,#10,'b/a=',b/a);
end.
- 14.03.2015 03:33
- thumb_up 47
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.