2 года назад

Написать программу определения стоимости разговора по телефону с учетом скидки 20% представляемой по субботам и воскресениям.

1 ответ:

Anuta132 года назад

0 0

Var st:real;
mn:integer;
d:1..7;
begin
write('Введите стоимость 1 минуты в рублях st=');
readln(st);
write('Введите продолжительность разговора в минутах mn=');
readln(mn);
repeat
write('Введите номер дня недели d=');
readln(d);
until d in [1..7];
case d of
1..5:st:=st*mn;
else st:=st*mn*0.8;
end;
write('Стоимость разговора=',st:0:2);
readln
end.

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

Глубина цвета 12. Сколько цветов получится в палитре?

максимов

Количество цветов = 2^12 = 4096

0 0

4 года назад

10) Ниже записана программа. Получив на вход число , эта программа печатает два числа, и . Укажите наибольшее из таких чисел , п

N667

Вот вставь проверь там напишет при каких значениях
var x, L, M,i,i1: integer;
begin
for i:=0 to 1000 do
begin
i1:=i;
L:=0;
M:=0;
while i1 > 0 do
begin
L:=L+1;
if M < i1 then
begin
M:= (i1 mod 10) * 2;
end;
i1:= i1 div 10;
end;
writeln(L);
write(M);
end;
readln;
end.

0 0

4 года назад

В многострочном текстовом поле содержится значения средней температуры воздуха каждого дня недели (Числа вводятся с клавиатуры).

СЕРГОУ

Var a,k,i:integer;
s:real;
begin
s:=0;
k:=0;
for i:=1 to 7 do
begin
readln(a);
s:=s+a;
if a>0 then
inc(k);//сколько раз в неделю температура была выше нуля
end;
s:=s/7;//средняя температура.
end.

0 0

3 года назад

Задание: вывести на экран все двузначные числа, кратные 13 (задачу решить: Цикл с параметром (цикл для) for)

Lesik2

Uses crt;
var x:integer;
begin
for x:=10 to 99 do
if x mod 13=0 then writeln(x);
end.

0 0

1 год назад

Помогите пожалуйстаНа вопрос, кто из абитуриентов А, В и С может работать на компьютере, былполучен ответ: если может работать В

Evvv [17]

Я думаю, что правильным ответом будет : 1) А.... и 2) А и В

0 0

4 года назад