Pascal(по самому простому нужно бы)

Знания

Информатика

1 ответ:

Вячеслав15 [7]4 года назад

0 0

Var money:integer;
  min:real;
  s:string;
begin
  write('Стоимость одной минуты разговора = ');
  readln(money);
  write('Длительность разговора = ');
  readln(min);
  write('Какой сегодня день? ');
  readln(s);
  if (s = 'суббота') or (s = 'Суббота') or (s = 'Воскресенье') or (s = 'воскресенье')   then writeln('Стоимость разговора = ',money * min*0.8)
else writeln('Стоимость разговора = ',money*min);
end.

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

Запишите самую короткую маску файла, которая соответствует файлам, содержащим букву t в произвольном месте имени, расширение кот

ТРимма

Ответ:

*t*.p?? (вроде правильно)

0 0

4 года назад

271113 перевести из 8-ой в 2-ую. Пожалуйста, помогите.

Екатерина Вячесла...

<span>271113</span>₈=2.7.1.1.1.3₈=10.111.001.001.001.011₂=10111001001001011₂

Каждую цифру восьмеричного числа записываем в двоичную триаду (3 позиции)

0 0

4 года назад

Подсчитать количество и сумму четных четырехзначных чисел Pascal ABC

розовый фламинго [42K]

Program abc;
var a,b,c,sum,col:integer;
begin
readln(a);
b:=0;
col:=0;
sum:=0;
while a<>0 do
begin
c:=a;
while c<>0 do
begin
b:=b+1;
a:=a div 10
end;
if b=4 then
col:=col+1;
sum:=sum+a;
readln(a)
end;
writeln(sum);
writeln(col);
end.

0 0

3 года назад

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

nef987 [2]

Потому что не профисиона эго делал

0 0

4 года назад

1.Нужно составить программу перевода градусов в интервале 15-30 шкалы Цельсия на градусы Фаренгейта. Формула преобразования F=C*

Сэм Нил [292]

Program Pr1;
uses crt;
var f,c:real;
begin
clrscr;
c:=15;
while c<=30 do begin
f:=c*1.8+32;
writeln(c,'-Цельсия; Фаренгейт - ',f);
c:=c+1;
end;
end.

Program Pr1;
uses crt;
var stroka:string;
i,v,x:integer;
Begin
clrscr;
readln(stroka);
x:=0;
v:=0;
for i:=1 to length(stroka) do begin
if stroka[i]<>' ' then v:=v+1;
if (stroka[i]='т') or (stroka[i]='Т') then x:=x+1;
end;
writeln('Количество букв- ',v,' Количество букв Т -',x);
end.

0 0

4 года назад