var
A, S:real;
i:integer;
begin
write('A = '); readln(A);
if A < 1 then
begin
writeln('1 > ', A);
exit;
end;
if A < 1.5 then
writeln('1.5 > ', A)
else
writeln('Таких чисел нет');
readln;
end.
1. Наверное в версии паскаль в первой строке не degin а begin
После исправления ошибки получим по шагам выполнение кода:
k = 0 s = 17
k = 1 s = 19
k = 2 s = 21
k = 3 s = 23
k = 4 s = 25
k = 5 s = 27
k = 6 s = 29
k = 7 s = 31
k = 8 s = 33
k = 9 s = 35
k = 10 s = 37
Ответ: s = 37
Ввести:клавиатура камера мышь сканер микрофон фотоаппарат usb
вывести:монитор динамик колонки принтер
Ответ:
Тебе надо чертить круги эллера,ну а так ответ
Объяснение:
200+300-450 = 50 страниц
-Вы пользуетесь интернетом (варианты: да, нет)
-Вы пользуетесь интернетом по долгу служы (да. нет)
-Вы пользуетесь интернетом для личных целей (да. нет)
-Какое количество времени Вы затрачиваете на пользование интернетом (час, два-три, более 3-х)
-Каким интернетом Вы пользуетесь (варианты-виды интернета xDSL, кабельный, модем-флешка точные названия не знаю)
-Вас устраивает качество, скорость используемого интернета (да. нет)
-Каким тарифом Вы предпочитаете пользоваться (базовый, лимитный, комбинированный)
-Вас устраивает сумма оплаты за используемый тариф (да, нет)
Вопросы личного характера:
-укажите пожалуйста Ваш возраст (до 15, 16-25 лет, 26-45 лет, 46-55 лет, более 55 лет)
-Ваш социальный статус ( школьник, студент ит. д. )
<span>-Ваш уровень дохода (указать уровни) </span>
