1) не подходит, т.к. перед fer возможно добавление только одного символа
4) не подходит, т. к. после fer возможно добавление только одного символа, а это противоречит отобранным файлам
3) не подходит, т. к. по приведенному расширению будут отобраны все 6 файлов хранящихся в каталоге
2) является верным ответом
Var n,m:real;
begin
repeat
writeln ('Введите два угла при параллельной стороне, в градусах');
readln(n,m);
until (n>0)and(m>0)and(n<180)and(m<180)and(m+(180-m)+n+(180-n)=360);
if (n=m)and(m=90) then writeln('Прямоугольник')
else if ((n=90)and(m<>90))or((m=90)and(n<>90)) then writeln('Прямоугольная трапеция')
else if (n=m) then writeln('Равнобедренная трапеция')
else writeln('Обыкновенная трапеция');
end.
1. Находим сколько в 10 см дюймов: 10/2.54≈3.9
2. Найдем количество пикселей отсканированного изображения:
3.9*3.9*600 = 9126
3. Учитывая, что 32 бита = 4 байт найдем информационный объем несжатого файла в байтах и переведем его в килобайты:
9126*4/1024≈36 Кбайт
1.
var a, b: integer;
begin
read(a,b);
if (a + b = 0) then writeln('Да') else writeln('Нет');
end.
2.
var num :integer;
begin
read(num);
if (num < 5) then writeln('меньше 5');
end.
3.
var num :integer;
begin
read(num);
if (num = 7) then writeln('Воскресенье');
end.
4.
var a,b,c :integer;
begin
read(a,b,c);
if (a * b * c = 0) then writeln('один равен 0');
end.
5.
var a,b :integer;
begin
read(a, b);
if (a - b = 0) then writeln ('они равны');
end.
Родился. Подрос. Ещё не много. Пошёл в садик. Закончил садик. Пошёл в школу 1 класс. Уже в 5-8 и т.д поступил в институт. Закончил его. Нашёл работу. Купил квартиру. Завёл семью. Жили долго и счастливо. Потом умер. Так?