Вопрос по информатике:
ПОМОГИТЕ СОСТАВИТЬ ПРРОГРАММЫ ДЛЯ ПАСКАЛЬ ABC!!! 1) Ввести с помощью read(); трехзначное число N. В нем зачеркули 1-ю слева цифру и приписали ее в конце числа. После этого число умножили на 10. Вывести полученное число 2) Ввести с помощью read(); числа A — сторона квадрата, R - радиус окружности (тип real). Выяснить, площадь какой фигуры больше: квадрата или круга.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 23.07.2016 09:59
- Информатика
- remove_red_eye 15117
- thumb_up 50
Ответы и объяснения 2
Program Zadacha;
var
N: integer;
M: integer;
Begin
Read(N);
M := N div 100;
M := M + ((N mod 100) div 10)*10;
M := M + (N mod 10)*100;
WriteLn(M);
ReadLn;
ReadLn;
End.
- 24.07.2016 13:33
- thumb_up 18
1)
var n:integer;
begin
read(n);
n := 100*(n-100*(n div 100)) + 10*(n div 100);
write(n)
end.
2)
var a,r:real;
begin
readln(a,r);
if(a*a>3.1415927*r*r) then
writeln('Square!')
else if(a*a<3.1415927*r*r) then
writeln('Circle!')
else
writeln('Equal!')
end.
- 25.07.2016 18:57
- thumb_up 37
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.