Паскаль - Форум
Среда, 07.12.2016, 11:33
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Паскаль
Паскаль
AntiSeptiKДата: Среда, 22.12.2010, 22:19 | Сообщение # 1
Лейтенант
Группа: Новичок
Сообщений: 11
[ 0 ]
Статус: Offline
Проверьте пожалуйста текст программы
Даны номерные знаки автомашин ,определить есть ли среди них одинаковые,вывести соответствующее сообщение

Program
Uses crt;
Var
S1,S2,S3,S4:string;
K:byte;
Begin
K:=0
Write(‘S1,S2,S3,S4’);
Readln(S1,S2,S3,S4);
If S1=S2 then begin
Write (‘есть совпадения’,S1);
K:=1;
End;
Else If S1=S3 then begin
Write (‘есть совпадения’’,S1);
K:=1;
End;
Else If S1=S4 then begin
Write (‘есть совпадения’’,S1);
K:=1;
End;
Else If S2=S3 then begin
Write (‘есть совпадения’’,S2);
K:=1;
End;
Else If S2=S4 then begin
Write (‘есть совпадения’’,S2);
K:=1;
End;
Else If S3=S4 then begin
Write (‘есть совпадения’’,S3);
K:=1;
End;
If k:=0 then begin
Write (‘нет совпадений’,k);
K:=1;
End.

Сообщение отредактировал AntiSeptiK - Четверг, 23.12.2010, 20:08
 
NailДата: Пятница, 24.12.2010, 00:11 | Сообщение # 2
Генералиссимус
Группа: Заблокированные
Сообщений: 127
[ 0 ]
Статус: Offline
Напишу не дорого.
Mail: shakurovnail@mail.ru
Icq: 6688101
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Паскаль
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016