Var
num: integer;
begin
readln(num);
writeln('Больше 10? ', num mod 10 + num div 100 + num div 10 mod 10 > 10);
end.
Turbo Pascal
1)USES CRT;
VAR A:array[1..10] of integer;
i:integer;
BEGIN
CLRSCR;
For i:=1 to 10 do
begin
A[i]:=i+i+1;
Write(A[i],' ');
end;
READLN;
<span>END.
2)
USES CRT;
VAR A:array[1..10] of integer;
i:integer;
BEGIN
CLRSCR;
For i:=1 to 10 do
begin
A[i]:=i+i+i;
Write(A[i],' ');
end;
READLN;
<span>END.</span></span>
Маша не говорит по-французски (она не играет на скрипке). Она же не знает итальянского. Т. е. она знает либо английский, либо немецкий.
Оля - виалончелистка - не знает итальянского, английского и французского - т. е. говорит на немецком.
Лена не играет на арфе, но, т. к. рояль и виалончель уже заняты, то играть она может только на скрипке, и говорит она по-французски.
Соответственно Валя играет на арфе и говорит по-итальянски. А Маша говорит по-английски.
Итого:
Маша - Рояль, Английский
Оля - Виалончель, Немецкий
Лена - Скрипка, Французский
Валя - Арфа, Итальянский
Цели изучения информатики:
1) как пользоваться пк
2) техника безопастности
3) программирование