сервис вопросов и ответовПомогите, пожалуйста, написать программы в паскале!!!!
10-11 класс|
|
Прикрепленные изображения
Шемка
20 июня 2013 г., 9:15:21 (10 лет назад)
Xxxomochka
20 июня 2013 г., 10:21:41 (10 лет назад)
30)
const
y0 = 1984;
var
y: integer;
colors: array[0..4]of string := ('зеленый', 'красный', 'желтый', 'белый', 'черный');
animals: array[0..11]of string := ('крыса', 'корова', 'заяц', 'дракон', 'змея', 'лошадь', 'овца', 'обезьяна', 'курица', 'собака', 'свинья','пробел');
begin
read(y);
writeln('Год: ', y);
writeln('Цвет: ', colors[(y - y0) mod 5]);
writeln('Животное: ', animals[(y - y0) mod 12]);
end.
Tuka
20 июня 2013 г., 12:19:17 (10 лет назад)
29 задача:
var i:longint;
begin
for i:=42000 to 43000 do begin
if i mod 72 = 0 then begin
if (i div 10) mod 10 = 4 then begin
write(i);
break;
end;
end;
end;
end.
Ответить
Другие вопросы из категории
последовательность действий для того, чтобы показать выступление в театре
например
1 - снять помещение
Помогите, плиииииииииииииииииииииз!!!!!!!!!! Задано число в семеричной системе счисления – 631 с основанием системы исчисления 7, переведите его
в двоичную систему счисления
Автомат
получает на вход два двузначных шестнадцатеричных числа. В этих числах все
цифры не превосходят цифру 6 (если в числе есть цифра больше 6, автомат
отказывается работать). По этим числам строится новое шестнадцатеричное число
по следующим правилам.
1.
Вычисляются два шестнадцатеричных числа – сумма старших разрядов полученных
чисел и сумма младших разрядов этих чисел.
2.
Полученные два шестнадцатеричных числа записываются друг за другом в порядке
возрастания (без разделителей).
Пример.
Исходные числа: 66, 43. Поразрядные суммы: A, 9. Результат: 9A.
Определите,
какое из предложенных чисел может быть результатом работы автомата.
1) 9F 2) 911 3) 42
Читайте также
написать программу на Assembler
добрый вечер, всем. помогите, пожалуйста, написать программу на Ассемблере.
задание:
Создать программу на языке Ассемблер, что позволяет организовать вычисления над элементами массивов
Объединить два массива 8-битных целых чисел со знаком. Сначала элементы второго затем первого.
заранее огромное спасибо всем!
1.тема циклы со сщетчиком.Написать программу в паскале для ввода с клавиатуры 15 чисел и вывода номеров отрицательных элементов.
2.написать программу в паскале
f(x)=2(sin*sin)x+1
Помогите пожалуйста написать программу в паскале.
Составить программу перевода натурального числа из десятичной системы счисления в двоичную
Помогите пожалуйста написать программу на паскале: дан массив целых чисел. найти количество элементов,кратных 5, расположенных между максимальным и
минимальным элементами массива (включая их)
Вы находитесь на странице вопроса "Помогите, пожалуйста, написать программы в паскале!!!!", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.