Заданы день и месяц рождения ,а также текущий день, месяц и год в формате дд.мм.гг. Определить сколько дней осталось до дня рождения Составить программу с паскаля. День рождения 16.11.04, сегодня 20.01.21.

👇

Увидеть ответ

Открыть все ответы

Ответ:

zejbelanka

03.12.2022

Жирным выделил правильный вариант

Объяснение:

Много ! Кто не знает- не лезьте

Отмечу лучший, если всё правильно

В качестве гипертекстовых ссылок можно использовать:

а)слово, группу слов или картинку,при подведении мыши к которымее курсор принимает формучеловеческой руки

2) только картинку

3) только слово

Какой из циклов вне зависимости от результата условия выполнит тело цикла хотя бы раз? *

цикл с постусловием

цикл с предусловием

цикл с параметром

Сколько раз будет выполнено (тело цикла) в следующем фрагменте программы: for:=20 to 10 do(тело цикла)? *

о раз

-10 раз

10 раз

Web-страница представляет собой ... *

Текстовый файл с расширением htm или html

Текстовый файл с расширением txt или doc

Двоичный файл с расширением com или exe

Графический файл с расширением gif или jpg

Браузеры (например, Microsoft Internet Explorer) являются *

трансляторами языка программирования

средством просмотра web-страниц

серверами Интернет

антивирусными программами

Какой из циклов выполняет известное количество повторений? *

цикл с постусловием

цикл с предусловием

цикл с параметром

Какой из циклов может и не выполнять действия после условия, а осуществлять выход сразу из цикла? *

цикл с параметром

цикл с постусловием

цикл с предусловием

Фрагмент программы, который будет выполняться раз за разом, пока выполняется условие - это ... *

цикл

тело цикла

фрагмент программы

4,4(100 оценок)

Ответ:

rukozhop2002

03.12.2022

Исходя из самого вопроса - тут не важно само выражение функции.

1. 7 { -6, -4, -2, 0, 2, 4, 6 }
Var k,n : Real;
Begin
n:=0;
k:=-6;
While k<=6 do
Begin
    k:=k+2;
    n:=n+1;
end;
Writeln('n = ',n);
end.

2. 7   { -2, -1.5, -1, -0.5, 0, 0.5, 1 }
Var k,n : Real;
Begin
n:=0;
k:=-2;
While k<=1 do
Begin
    k:=k+0.5;
    n:=n+1;
end;
Writeln('n = ',n);
end.

3. 3 { -3, -1, 1 }
Var k,n : Real;
Begin
n:=0;
k:=-3;
While k<=2 do
Begin
    k:=k+2;
    n:=n+1;
end;
Writeln('n = ',n);
end.

4. 7 { -1, -0.5, 0, 0.5, 1, 1.5, 2 }
Var k,n : Real;
Begin
n:=0;
k:=-1;
While k<=2 do
Begin
    k:=k+0.5;
    n:=n+1;
end;
Writeln('n = ',n);
end.

4,6(65 оценок)

Это интересно:

17.04.2022

Как избежать наказания в школе: 10 простых советов...

Праздники-и-традиции

24.12.2020

Как правильно чистить искуственную елку...

Компьютеры-и-электроника

03.01.2023

Как активировать iMessage на вашем устройстве: шаг за шагом...

Кулинария-и-гостеприимство

14.12.2022