писатель: не один писатель сейчас использует даже тот самый word чтобы печатать там
бухгалтер: сдает отчеты через компьютер, тоже и в налоговой ну или еще где-то
врач: для различных анализов
: те же нужные конференции, призентации и все такое делается на компьютере
Ответ дал: Гость
на pascal:
program sonik;
uses crt;
var a,b,c: string;
begin
readln (a); readln (b); readln (c);
writeln (' фигуры: ',a,b,c);
end.
Ответ дал: Гость
я поеду в москву и если встречу там друзей, то интересно проведем время.решение: м – я поеду в москвув – я встречу там друзей м×( в ® и )и – мы интересно проведем там время
если я поеду в москву и встречу там друзей, то интересно проведем время. решение: м×в ® и
не верно, что если погода пасмурная, то дождь идет тогда и только тогда, когда нет ветра.решение: д – идет дождьп – пасмурная погода в – дует ветер
делается по такому же принципу
Ответ дал: Гость
1)
var
a: array [1..5,1..10] of integer;
i,j,p: integer;
begin
for i: =1 to 5 do
begin
for j: =1 to 10 do
begin
a[i,j]: =random(50)+1;
write(a[i,j]: 3);
end;
writeln;
end;
writeln('меняем 1 и последнюю строки');
for j: =1 to 10 do
begin
p: =a[1,j];
a[1,j]: =a[5,j];
a[5,j]: =p;
end;
for i: =1 to 5 do
begin
for j: =1 to 10 do
write(a[i,j]: 3);
writeln;
end;
end.
2)
var a: array [1..5, 1..10] of integer; i, j: integer; p: real;
begin for i : = 1 to 5 do begin for j : = 1 to 10 do begin a[i, j] : = random(50) + 1; write(a[i, j]: 3); end; writeln; end; writeln('произведения элементов строк'); for i : = 1 to 5 do begin p : = 1; for j : = 1 to 10 do p : = p * a[i, j]; writeln(p: 25: 0); end; end.
Популярные вопросы