Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var
x: real;
begin
readln(x);
writeln(round(x));
end.
var ch,n,i: longint;
ch1,s: string;
read(s,ch);
n: =length(s);
writeln(n,' ',ch);
str(ch,ch1);
for i: =1 to n do if s[i]=ch1 then write(i,' ');
размер объекта- эскиз
форму реального объекта - чертежа
цвет объекта-рисунка
элементный состав объекта -схемы
отношения между объектами - диаграммы эйлера-венна
стоимость объекта -числа
объект-фотографии
var a: array [1..10] of integer;
n,i: integer;
{vvod massiva skopirovat suda}
for i: = 1 to 10 do begin
if a[i] mod 10 = 0 then
n: =n+1;
end;
writeln(n);
Популярные вопросы