Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

Помогите. Надо решить через pascal.

Ответ оставил Гость

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 - не уверен.