Ответ.
Меню
Задать вопрос!
Вход
Регистрация
Задать вопрос!
Меню
Все категории
Фотография и видеосъемка
Знания
Другое
Гороскопы, магия, гадания
Общество и политика
Образование
Путешествия и туризм
Искусство и культура
Города и страны
Строительство и ремонт
Работа и карьера
Спорт
Стиль и красота
Юридическая консультация
Компьютеры и интернет
Товары и услуги
Темы для взрослых
Семья и дом
Животные и растения
Еда и кулинария
Здоровье и медицина
Авто и мото
Бизнес и финансы
Философия, непознанное
Досуг и развлечения
Знакомства, любовь, отношения
Наука и техника
Rost
3 года назад
5
Паскаль,1) вывести все четные числа от 1 до 152)вывести на экран числа от 2 до 9 с шагом 0,2
Знания
Информатика
Ответить
Комментировать
Отправить
1
ответ:
Earth-Bug
[5]
3 года назад
0
0
Var
i: integer;
begin
i := 2;
while i < 15 do
begin
write(i:3);
i := i + 2
end;
writeln
end.
Тестовое решение:
2 4 6 8 10 12 14
var
p: real;
begin
p := 2;
while p < 9.01 do
{Нельзя задавать ровно 9 из-за накопления ошибок шага 0.2}
begin
write(p:4:1);
p := p + 0.2
end;
writeln
end.
Тестовое решение:
2.0 2.2 2.4 2.6 2.8 3.0 3.2 3.4 3.6 3.8 4.0 4.2 4.4 4.6 4.8 5.0 5.2 5.4 5.6 5.8 6.0 6.2 6.4 6.6 6.8 7.0 7.2 7.4 7.6 7.8 8.0 8.2 8.4 8.6 8.8 9.0
Отправить
Читайте также
Дан массив. заменить элементы с нечетными номерами на квадраты их номеров
Эдуард Ахметшин [236]
For i:=1 to n do
if i mod 2<>0 then a[i]:=sqr(i);
0
0
3 года назад
От чего зависит тип файла
svalow
От того какой он и что в нем
0
0
3 года назад
Год предшествующий году выпуска OC Windows 3.1.
Максин
в 1993 вышел
OC Windows 3.1.
Или что то другое надо?
0
0
3 года назад
Помогите пожалуйста!! Задан массив X[1..N]. Какой оператор нужно поставить вместо многоточия, чтобы в результате элементы в масс
Светлана Ефимовна
X[k]:=x[k-1];
//И ещё немного текста
0
0
4 года назад
..................Задание в файле
АйнурТагирович [52]
If (1<x) and (x<2)
then begin x:=x+1; y:=0; end
else begin x:=0; y:=y+1; end;
0
0
1 год назад
Смотрите также:
Помогите с информатикой, напишите программу на VB.Net Два натуральных числа называются дружественными, если каждое из них равно
15
·
1 ответ
Один из первых отечественных персональных компьютеров БК-0010, имел оперативную память объемом 16 Кб, сколько страниц текста мож
5
·
1 ответ
Хелп. Какая формула нужна для нахождения этого среднего балла? Уже сегодня нужно сдать. Помогите, пожалуйста
7
·
1 ответ
Выполнить по информатике,даю 50 баллов
7
·
1 ответ
Напишите программу, которая вычисляет сумму всех двухзначных чисел.
5
·
1 ответ
Для чего создаются диалоги во время проекта? В скретч Срочно 20б
7
·
1 ответ
Перевести чило 5 ,12 ,29 ,134 , 254 из десятичной системы счисления в систему fib
7
·
1 ответ
Тема: Последовательный поиск в массиве. Сгенерировать массив из 5 элементов, найти в массиве число 3. Найти в массиве число боль
7
·
2 ответа
Из элементов массива а сформировать массив в той же размерности по правилу-все элементы с нечетными номерами разделить нацело на
5
·
1 ответ
Какие значения может принимать высказывание ? Выберите один ответ: 1)истина - ложь 2)инверсия - импликация 3)равенство - неравен
12
·
1 ответ
×
Добавить ответ
Отправить
×
Вход
E-mail
Пароль
Запомнить меня
Войти
Не зарегистрированы?
Пройти быструю регистрацию
×
Регистрация
Ваше имя
E-mail
Пароль
Зарегистрироваться
close
Вход
Регистрация
Задать вопрос!