сервис вопросов и ответовРешить хотя бы номер 3
5-9 класс|
|
Очень срочно!
Прикрепленные изображения
Shorukov94
27 сент. 2013 г., 15:30:49 (10 лет назад)
юлия6535
27 сент. 2013 г., 16:43:19 (10 лет назад)
Program fignya;
uses crt;
var
x:string;
a,b,c,d:integer;
BEGIN
writeln('Введите ИМЯ, ЧИСЛО РОЖДЕНИЯ, МЕСЯЦ РОЖДЕНИЯ, ТЕКУЩЕЕ ЧИСЛО, ТЕКУЩИЙ МЕСЯЦ ');
readln(x,a,b,c,d);
writeln('Привет '+x+'!');
writeln('До дня рождения осталось '+((b*30)+a)-((d*30)+c)+' дней');
END.
Alekskot2010
27 сент. 2013 г., 17:39:23 (10 лет назад)
3)
var
x: string;
a, b, c, d: integer;
begin
writeln('Введите <ИМЯ>, <ЧИСЛО РОЖДЕНИЯ>, <МЕСЯЦ РОЖДЕНИЯ>, <ТЕКУЩЕЕ ЧИСЛО>, <ТЕКУЩИЙ МЕСЯЦ> ');
readln(x, a, b, c, d);
writeln('Привет ', x, '!');
writeln('До дня рождения осталось ', b * 30 + a - d * 30 - c, ' дней');
end.
4)
var
i: integer;
begin
for i := 10 to 100 do
if (i mod 2 <> 0) and (i mod 3 <> 0) and (i mod 5 <> 0) then
writeln(i);
end.
Ответить
Другие вопросы из категории
Построить таблицу истинности для следующих выражений
1. BV(A&B)
2.┐AV(B&A)
3.A&(A&BVC)
4.┐(AC┐BVC)
5.A&(Cv
Что получится в результате работы следующего алгоритма, если 1) a=2, b=5, 2)
a=0, b=-2
алг пример
цел a,b,c
нач
ввод a,b
если a>0 то
если b>0 то
c:=a+b
иначе
c:=10
кв
иначе
если b>0 то
c:=a*b
иначе
c:=0
кв
кв
вывод c
кон
Читайте также
Вася, Илья, Коля, Никита и Петя решали задачи по информатике. Всего было 5 задач. Кто сколько задач решил, если известно, что: Вася и Коля решали все
задачи вместе; Петя решил на 2 задачи больше, чем Вася; Илья решил меньше задач, чем Коля; Никита решил больше задач, чем Илья, но меньше, чем Вася; каждый решил хотя бы по одной задаче.
Пожалуйста, помогите) Очень важно) Решите хотя бы одну задачу... А если не сложно, то лучше 2 :))) 1) Информационная ёмкость
человеческой яйцеклетки приблизительно равна 2 в 33 степени битов. Сколько дискет ёмкостью 1,4 МБайт потребуется для размещения этой информации ?
2) Дискета объёмом 1440 КБайт весит 20 г. Сколько будет весить набор дискет, необходимый для полногокопирования информации с жёсткого диска объёмом 80 ГБайт ?
Заранее огроооомное спасибо :)
информационное сообщение объёмом 1 Мбайт передается со скоростью 4 Кб/мин.определите время передачи информации.
и еще одно задание:
сколько Кб информации содержат сообщения следующего объёма? :
2^16 бит, 2^16 байт и 1/4 Мб. Помогите решить хотя бы одно задание!!!!
Помогите решить хотя бы несколько вопросов !
1.Укажите правильный адрес ячейки:
А)AI2C Б)B1256 В) 123C Г)B1A
2.В электронных таблицах выделена группа ячеек А1:В3. Сколько ячеек входит в этот диапазон?
А)6 Б) 5 В) 4 Г)3
3.Результатом вычислений в ячейке С1 будет:
(таблица вопроса 3)
4. В ЭТ нельзя удалить:
а.столбец б. строку в. имя ячейки г. содержимое ячейки
5. Основным элементом ЭТ является:
а. ячейка б. строка в. столбец г.таблица
6.Укажите неправильную формулу
а. A2+B4 Б.=A1/C453 В =C245*M67 Г=O89-K89
7. При перемещении в ЭТ абсолютные ссылки
а. не изменяются
б. преобразуются вне зависимости от нового положения формулы
в. преобразуются в зависимости от нового положения формулы
г. преобразуются в зависимости от длины формулы
8. Диапазон это
а. все ячейки одной строки
б. совокупность клеток,образующих в таблице область прямоугольной формы
в.все ячейки одного столбца
г. множество допустимых значений
Вы находитесь на странице вопроса "Решить хотя бы номер 3", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.