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.
Флешка, жесткий диск, дискета, диски.
Ответ:
может 2-3-4-6 (BA-CB-DC-ED)
Объяснение:
Pascal:
var n:longint;
begin
write ('N = ');
readln(n);
if n mod 2 = 0 then writeln ('Да') else writeln ('Нет');
readln;
end.
C++:
#include <iostream>
#include <conio.h>
int main()
{
setlocale (LC_CTYPE,"Russian");
int n;
std::cout <<"N = ";
std::cin >> n;
if (n%2 == 0)
{
std::cout <<"Да" <<std::endl;
}
else
{
std::cout <<"Нет" <<std::endl;
}
getch();
return 0;
}