4 года назад

Написать программу которая по номеру урока выдаёт сообщение о его названии . Использовать команду case

1 ответ:

0 0

Var
N: integer;
Begin
Write('Введите номер урока: ');ReadLn(N);
Case N of
    '1':WriteLn('Математика');
    '2':WriteLn('Физика');
    '3':WriteLn('Химия');
    '4':WriteLn('Геометрия');
    '5':WriteLn('География');
    '6':WriteLn('Краеведенье');
End;
End.

Читайте также

Нарисуйте звёздочками лесенку указанного размера, как показано в примерах. Входные данные Первая строка содержит целое число N (

Ридли8 [379]

Var i, n, j: integer;
begin
write('Введите n ');
readln(n);
if (n>=1) and (n<=100) then
for i:=1 to n do
begin
for j:=1 to i do
write('*');
writeln;
end;
end.

0 0

3 года назад

Помогите решить задачку: Три дочери писательницы Дорис Кей-Айрис,Джуди и Линда-очень талантливы. Они прииобрели известность в ра

Певетс

если мы внимательно прочитаем задачу, то сможем сделать следующие выводы:

Линда не в Риме+Линда равнодушна к балету+а кто живет в Риме певица = Линда снимается в кино + парижанка не снимается в кино = Линда живет в Чикаго.

Джуди живет не в Париже+Линда живет в Чикаго = Джудит живет в Риме

следовательно Айрис живет в Париже

а кто живет в Риме певица+Джудит живет в Риме = Джудит -певица.

Линда снимается в кино+Джудит -певица. = Айрис -балерина

Ответ: Айрис живет в Париже и занимается балетом.

0 0

4 года назад

Перевести в паскале число из десятичной в восьмеричную

Кильдеева

Var
ch, mo, di: longint;
otvet, s: string;
begin
readln(ch);
otvet := '';
while ch <> 0 do
begin
di := ch div 8;
mo := ch mod 8;
str(mo, s);
otvet := s + otvet;
ch := di;
end;
writeln(otvet);
end.

0 0

4 года назад

Файл размером 144 Мбайт передаётся через некоторое соединение за 3 минуты. Определи размер файла (в Мбайт), кото

Oblivin84

420 секунд = 7 минут
Первым делом узнаем, сколько Мбайт передаётся за 1 минуту, для этого разделим 144 на 3
1)144:3=48 (Мбайт) передаётся за 1 минуту
2)48*7=336 (Мбайт) передаётся за 7 минут
Ответ:336 Мбайт.

0 0

4 года назад

Срочно!!!! Вычислить значение выражения. Написать блок схему и на Паскале!!! y=8x+5(x^2-1), если x= a^2+cos(a)

Альберт55 [14]

Ответ:

Program example;

var a,x,y: Extended;

Begin

write('Enter a: ');

readln(a);

x:=sqr(a)+cos(a);

y:=8*x+5*(exp(ln(x)*(2-1)));

writeln('y = ', y:0:3);

End.

Объяснение: Если есть вопросы, то пишите мне в лс.

0 0

3 года назад