Помогите решить?
Помогите решить.
В заданном натуральном трехзначном числе имеется четная цифра.
Pascal.
Пожалуйста помогите решить задачу на языке Pascal?
Пожалуйста помогите решить задачу на языке Pascal.
Задача 2.
Pascal Помогите пожалуйста?
Pascal Помогите пожалуйста!
Помогите, пожалуйста?
Помогите, пожалуйста!
На языке Pascal решить данное выражение.
Заранее спасибо!
Решите пожалуйста задачу на языке pascal?
Решите пожалуйста задачу на языке pascal.
Даю 30 баллов?
Даю 30 баллов.
Решите пожалуйста на Pascal.
На странице вопроса Помогите? из категории Информатика вы найдете ответ для уровня учащихся 5 - 9 классов. Если полученный ответ не устраивает и нужно расшить круг поиска, используйте удобную поисковую систему сайта. Можно также ознакомиться с похожими вопросами и ответами других пользователей в этой же категории или создать новый вопрос. Возможно, вам будет полезной информация, оставленная пользователями в комментариях, где можно обсудить тему с помощью обратной связи.
1)
var s : string ; count, i : integer ;
begin readln(s) ; for i : = 1 to length(s) do if(s[i] = '4') or (s[i] = '5') then inc(count) ; writeln('Кол - во цифр "4" и "5" в тексте : ', count) ;
end.
2)
var x, y : integer ;
begin writeln('Введите x, y : ') ; readln(x, y) ; if(x mod y = 0) then writeln('Является делителем') else writeln('Не является делителем') ;
end.
3)
var a, b, c : integer ;
begin writeln('Введите стороны треугольника : ') ; readln(a, b, c) ; if(abs(a - b) < ; c) and (c < ; (a + b)) then writeln('Это не треугольник') else writeln('Это треугольник') ;
end.
4)
var s, sout : string ; i : integer ;
begin s : = 'информатика' ; for i : = 3 to 8 do sout : = sout + s[i] ; writeln(sout) ;
end.
P. s насчет 4 - не уверен.