состояние тропосферы в данной местности и в данное время называеться погодой
Ответ дал: Гость
1)
s : = 0;
for i : = 1 to k do
begin
if i mod 2 < > 0 then
s: = s + i;
end;
2)
for i : = 5 to 55 do
begin
if i mod 2 < > 0 then
writeln(i);
end;
3)
s : = 1;
for i : = n to m do
begin
s: = s * i;
end;
4)
s : = 0;
for i : = 10 to 15 do
begin
s: = s + i;
end;
обрамления там везде одинаковые
Ответ дал: Гость
картинка должна быть в папке с программой и быть в формате bmp
uses graphabc;
var n: string; b: picture; s: integer;
begin writeln('введите расстояние до зеркала'); 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.
Популярные вопросы