Напишите программу, которая определяет сколько раз входит в строку данное слово.

program p;

vara,b,c,i,j,n : integer;

beginwriteln('введите три числа'); readln(a,b,c);

if a> b then if a> c then writeln(a,c,b) else writeln(c,a,b) else if c> b then writeln(a,b,c) else writeln(b,c,a);  

readln; end. 

var

x: real;

begin

readln(x);

writeln(round(x));

end.

имитационные модели оперируют разыгрыванием случайной величины!   если детерминированная модель слишком сложна или вообще не возможна, то на приходит имитационная модель!

картинка должна быть в папке с программой и быть в формате bmp

usesgraphabc;

varn: string; b: picture; s: integer;

beginwriteln('введите расстояние до зеркала'); readln(s); write('введите имя файла рисунка: '); readln(n); window.clear; b : = picture.create(n); b.load(n); b.draw(50, 50); b.fliphorizontal; b.draw(50+2*s,50); end.