ПОМОГИТЕ СОСТАВИТЬ ПРРОГРАММЫ ДЛЯ ПАСКАЛЬ ABC!!! 1) Ввести с помощью read(); трехзначное число N. В нем зачеркули 1-ю слева цифру и приписали ее в
10-11 класс
|
конце числа. После этого число умножили на 10. Вывести полученное число 2) Ввести с помощью read(); числа A — сторона квадрата, R - радиус окружности (тип real). Выяснить, площадь какой фигуры больше: квадрата или круга.
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.
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.
Другие вопросы из категории
2)скорость передачи информации 128бит/с. Передача файла заняла 6мин. Найти размер файла и количество символов ,если 1символ кодируется 1байтом.
3)23211^5+32413^5;65433^7+41451^7
4)65^9•75^9;42^8•35^8
5)сравните:
12^7 и 40^5
1001101^2 и 230^4
Опредилите, выгодно ли было вам ездить без билета.
Читайте также
2. Составить программу для упорядоченное двух элементов по убыванию.
арифметическое и количество всех положительных элементов массива))
Помогите составить программу в Паскале, буду благодарна:)
у= если x<-3 то
y= √1 - x²
если 1,5<x-3, то
y= в числителе 1 в знаменателе модуль x +2
если x>1,5, то
y=tg x
Составить словесное описание алгоритма, составить блок схему, описать используемые элементы
Составьте алгоритм(в паскале\на алгоритмическом языке), в котором вычисляются четыре величины: средние температуры зимних месяцев, весенних месяцев, летних месяцев, осенних месяцев.