Program dialog;
var
a: integer;
begin
writeln('Привет! Какая у вас температура? ');
readln(a);
if a>37 then
writeln('Лечитесь дома')
else if a<36 then
writeln('Седите дома')
else
writeln('Идите в шоклу');
end.
ну я точно не помню вроде кисть, маркер, карандаш, заливка, геометрические фигуры, прямые, пунктирные линии, краски ( ну эти цвета ) и все вроде. Я давно рисовала, еще в 2003, а вообще если в 2007 или в 2010 то там появляются новые. Это Paint
Ответ:
<em>Ответ</em><em>;</em> 20+28=48
48-37=11 итог <em><u>ответ</u></em><em><u> </u></em><em><u>11</u></em>
1
Стыд не знать!!!!
...........................
Program pr;
uses crt;
Var i,j,n,rezult:integer;
Begin
Writeln('Введите n');
readln(n);
for i:=0 to n-1 do
Begin
for j:=1 to n do
Begin
rezult:=i*n+j;
Write(rezult:3,' ');
end;
Writeln;
end;
end.<span>
</span>