fmba18
?>

:с мастям игральных карт присвоены порядковые номера: 1 — пики, 2— трефы, 3 — бубны, 4 — червы. достоинству карт, старших десятки, присвоены номера: 11 — валет, 12 — , 13 — король, 14 — туз. даны два целых числа: n — достоинство (6 < n < 14) и m — масть карты (1 < m < 4 вывести название соответствующей карты вида «шестерка бубен», « червей», «туз треф» и т. п. нужно составить программу на паскале

Информатика

Ответы

PushkinaKurnosov984
Var n,m:integer;
begin
write('N = '); readln(n);
write('M = '); readln(m);
case n of
6: write('шестерка ');
7: write('семерка ');
8: write('восьмерка ');
9: write('девятка ');
10: write('десятка ');
11: write('валет ');
12: write('дама ');
13: write('король ');
14: write('туз ');
else writeln('ошибка ввода '); end;
case m of
1: write('пик');
2: write('треф');
3: write('бубен');
4: write('червей');
else writeln('ошибка ввода '); end;
end.

Пример:
N = 10
M = 2
десятка треф
svetsalikowa
Program qq; 
var x, y, z, c, a, b: real; 
begin 
writeln('Введите стоимость билета бизнесс-класса:'); 
readln(x);   
if x > 0 then 
begin   
y:= x / 2;   
writeln('Введите количество оставшихся билетов бизнесс-класса, затем введите количество оставшихся билетов эконом-класса');   
readln(a, b);       
if (a >=0) and (b >= 0) then     
begin       
c:= a*x + y*b;       
z:= (120*y + 40*x) - c ;       
writeln('Доход авиакомпании:', z);     
end     
else     
writeln('Решение невозможно'); 
end; 
end.

Вот так всё работает.
1. Не там поставили end;
2. лишнее else writeln('Решение невозможно');
3. У меня ругался паскаль на то что в условия при and не взяты в круглые скобки. if (a >=0) and (b >= 0) then 
jardi
1. Компьютеры одной организации, связанные каналами передачи информации длясовместного использования общих ресурсов и периферийных устройств и находящиеся водном здании, называют сетью:
3) локальной

2. Компьютер, предоставляющий свои ресурсы другим компьютерам при совместной работе,называется:
2) сервером

3) Выберите правильные ответы:
1) Каждый компьютер, подключенный к локальной сети, должен иметь сетевую карту
Неверные ответы:
2) Одноранговые сети используются в том случае, если в локальной сети более 10 компьютеров (одноранговые сети как правило используются для маленьких сетей)
3) Сервер – это мощный компьютер, необходимый для более надежной работы локальной сети (сервер как правило, но не обязательно, мощнее, но уж точно нужен не для надёжности)
4) Сеть на основе сервера – когда все компьютеры локальной сети равноправны (не все равноправны - есть сервер и клиенты)

4. Интернет – это:
3) глобальная сеть

8. Сети, объединяющие компьютеры в пределах одного региона:
2) региональные

9. Сети, объединяющие компьютеры в пределах одной отрасли, корпорации:
3) корпоративные

10. Выберите из предложенного списка IP-адрес:
1. 193.126.7.29 (IP-адрес версии 4 - 4 числа от 0 до 255, разделённых точками)

12. Web-браузер – это:
4) клиент-программа WWW, обеспечивающая пользователю доступ к информационным ресурсам Интернета 

13. Сеть, в которой каждый пользователь сам решает вопрос доступа к своим файлам, называют
3) одноранговой компьютерной сетью

14. Компьютер, подключенный к Интернет, обязательно имеет:
1) IP-адрес

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

:с мастям игральных карт присвоены порядковые номера: 1 — пики, 2— трефы, 3 — бубны, 4 — червы. достоинству карт, старших десятки, присвоены номера: 11 — валет, 12 — , 13 — король, 14 — туз. даны два целых числа: n — достоинство (6 < n < 14) и m — масть карты (1 < m < 4 вывести название соответствующей карты вида «шестерка бубен», « червей», «туз треф» и т. п. нужно составить программу на паскале
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

vak1984
yuliasam
Андрей Шитенкова
Вайнер
re-art
coleslow12
Евгеньевич-Куликов1614
pbttehnology
pavpe4198
ea9824165833886
kuchin
rozhkova
rezh2009766
sarycheva659
polariskirov