Информатика | 10 - 11 классы
Решить в Pascal.
Перед тем как выкладывать ответ проверьте свое решение.
Решение через Turbo Pascal?
Решение через Turbo Pascal.
Дана матрица размера M × N и целые числа K1 и K2 (1 ≤ K1 < ; K2 ≤ M)?
Дана матрица размера M × N и целые числа K1 и K2 (1 ≤ K1 < ; K2 ≤ M).
Поменять местами строки матрицы с номерами K1 и K2.
Решить в Pascal.
Перед тем как выложить, проверить свое решение.
Решение в turbo pascal?
Решение в turbo pascal!
Очень мало времени Составить программу решения уравнения a * x + b = c Pascal abc net Пожалуйста?
Очень мало времени Составить программу решения уравнения a * x + b = c Pascal abc net Пожалуйста!
Проверьте у меня один шанс!
Решите пожалуйста задачу на языке pascal?
Решите пожалуйста задачу на языке pascal.
Написать прогрессию в ПО Pascal ABC?
Написать прогрессию в ПО Pascal ABC!
(пробовал сделать сам, допустил где - то ошибку(и)).
При n = 1 Pascal должен выдавать ответ 2, при n = 2 Pascal должен выдавать 2, 75, при n = 3 Pascal должен выдавать ответ 3, 125!
Вы перешли к вопросу Решить в Pascal?. Он относится к категории Информатика, для 10 - 11 классов. Здесь размещен ответ по заданным параметрам. Если этот вариант ответа не полностью вас удовлетворяет, то с помощью автоматического умного поиска можно найти другие вопросы по этой же теме, в категории Информатика. В случае если ответы на похожие вопросы не раскрывают в полном объеме необходимую информацию, то воспользуйтесь кнопкой в верхней части сайта и сформулируйте свой вопрос иначе. Также на этой странице вы сможете ознакомиться с вариантами ответов пользователей.
Program tref ;
var a, i : integer ; s : string ; b : char ;
begin
readln(s) ;
readln(b) ;
for i : = 1 to length(s) do
if(s[i] = b)then a : = a + 1 ;
writeln(a) ; y
end.
Сначала вводим строку, потом символ.