Возраст: 16 | | Сообщений: 1657 Благодарности: 64 / 453 Репутация: 408 Предупреждений: 0
Друзья Тут: 16 лет 5 месяцев
program lexashkola; var a,b,c:integer; begin c:=0; writeln("Введите число А: "); readln(a); writeln("Введите число B: "); readln(b); if a = 5 then c:=c+1 else; if b= 5 then c:=c+1 else writeln("Чисел 5 - нет."); if c=1 then writeln("Число 5 упоминается 1 раз"); readln; end.
Возраст: 16 | | Сообщений: 1657 Благодарности: 64 / 453 Репутация: 408 Предупреждений: 0
Друзья Тут: 16 лет 5 месяцев
Программа выводит 2 сообщения по-очереди, первое - введите число А, второе - введите число Б. В первом ты вводишь 100, во втором 999. Дальше идёт оператор if, первый проверяет число А, второй - число Б. Число А - не проходит, число Б - тоже. В таком случае выводится сообщение "Чисел 5 - нет.". Программа переводится в режим ожидания, пока ты не нажмёшь любую клавишу на клавиатуре или не закроешь программу.
Возраст: 33 | | Сообщений: 2175 Благодарности: 36 / 174 Репутация: 406 Предупреждений: 1
Друзья Тут: 15 лет 11 месяцев
WooW, К сожалению, твой код неверен, так как твоя программа ищет является ли число полностью 5. Верный код:
var a,b:string; i,k:longint; begin k:=0; readln(a); readln(b); for i:=1 to length(a) do if a[i]='5' then inc(k); for i:=1 to length(b) do if b[i]='5' then inc(k); writeln(k); end.
Возраст: 16 | | Сообщений: 1657 Благодарности: 64 / 453 Репутация: 408 Предупреждений: 0
Друзья Тут: 16 лет 5 месяцев
lexa-alex2345, было бы замечательно, если бы ты посещал занятия в школе и дома в руки брал книгу. Учитель не задаст то, что ты не в силах сделать. Я тебе выше конкретно по-русски разжевал :)
Возраст: 33 | | Сообщений: 2175 Благодарности: 36 / 174 Репутация: 406 Предупреждений: 1
Друзья Тут: 15 лет 11 месяцев
lexa-alex2345, Вводишь мой код в окно паскаля, нажимаешь F9, вводишь сперва первое число, затем жмешь ентер, и вводишь второе. Пример: 123456 55555 Программа должна вывести ответ: 6.
"" and "PlayStation" are registered trademarks of Sony Computer Entertainment Inc. "", PSP and "UMD" are trademarks of Sony Computer Entertainment Inc. "", "XMB", "Memory Stick Duo" and the "Memory Stick Duo" logotype are trademarks of Sony Corp. All product titles, publisher names, trademarks, artwork and associated imagery are trademarks, registered trademarks and/or copyright material of the respective owners. All rights reserved.