Помогите пожалуйста я новичок и написал программу в паскале,но она почему то не идет.Подскажите,что я написал не так.
5-9 класс
|
нужно чтобы прямоугольник со сторонами a и b вошел или не вошел в фигуру со сторонами x,y,z
Program figures;
var a,b,x,y,z:integer;
begin
write('введите 5 чисел');
read(a,b,x,y,z);(написано когда запускаешь и пишешь цифры что не верный формат это строки)
if(a<x)and(b<y)and(a<z)then
write('войдет')else write('не войдет');
end.
введите 5 чисел4 5 4 6 4
не войдет
все работает, числа через пробел вводи
Строку read(a,b,x,y,z);
замени на фрагмент:
readln(a);
readln(b);
readln(x);
readln(y);
readln(z);
Должно работать :)
Другие вопросы из категории
Почтовый ящик superBat устроен так, что если первой фразой письма является приветствие "Hello!", то это приветствие пользователю не показывается. Напишите программу для работы этого почтового ящика. Ваша программа должна удалять из строки приветствие 'Hello!', если строка с него начинается и затем выводить измененную строку. (Будем также считать, что слова (HELLO, hELLO в начале письма невозможны).)
Входные данные
Вводится строка, не начинающаяся с пробела.
используя оператор FOR
Читайте также
1. Написать программу нахождения произведения n чисел.
паскаль 3)найти произведение последовательных натуральных чисел от n до m. написать программу паскаль. 4)найти сумму последовательных натуральных чисел от 10 до 15.тоже паскаль
Написать программу в паскале. Цикл "пока".
Одноклеточная амёба каждые 3 часа делится на 2 клетки. Определить через сколько часов будет X амёб. X - вводится с клавиатуры.
Составьте программу, которая формирует массив из 40 случайных целых чисел от 0 до 20 и вычисляет:
1). сумму чисел, не превышающих 10;
2). сумму чисел,кратных 3. Помогите пожалуйста,написать эту программу на PaskalABC.