4) Blender, inkscape, Microsoft paint, scetch up, gimp
Спасибо
Ответ дал: Гость
1)
program z1;
var a: integer;
begin read(a);
if (a> 9) and (a< 100) then writeln(a, '-двузначное число')
else writeln(a, '-не является двузначным числом');
end.
2)
program z2;
var i: integer;
begin
for i: =1 to 9 do if (i mod 2 = 1) then writeln(i, ', ');
end.
2 способ:
program z2; var i: integer; begini: =1; while i< =9 do begin write(i, ', '); i: =i+2; end; end.
3)
program z3; var i,n: integer; s: real; a: array[1..100] of real; beginwrite('введите количество элементов массива: '); readln(n); write('введите элементы массива: '); for i: =1 to n do read(a[i]); i: =1; s: =0; while i< =n do begin s: =s+a[i]; i: =i+2; end; write('s=',s); end.
Ответ дал: Гость
ну можно, если на паскале, в одной прописать асижн (вызов файла), реврайт, записать туда переменные. а в другой программе прописать чтение переменной из файла, если ты об а так например импорт-экспорт есть во многих прогах (оффис вот
Популярные вопросы