Предмет: Немецкий язык, автор: yanaundmutter

Переведите пожалуйста текст, на немецком

Приложения:

Ответы

Автор ответа: wasjafeldman

Моцарт и Штраус..Кто они? Собиратели сказок? Или художники? Или..нет! Они композиторы и родились в Австрии. Австрийский город Зальцбург -- родной город Моцарта. Он был вундеркиндом. Он прекрасно играл на многих музыкальных инструментах и сочинял музыку. Иоганн Штраус -- знаменитый "король вальса". Он сочинял чудесные вальсы,играл на пианино и скрипке. Памятник ему располагается в столице Австрии -- Вене.

Предыдущий вопрос

Следующий вопрос

Похожие вопросы

Предмет: Химия, автор: 0951477470f

вид атомов з певним зарядом ядра називають...

5 лет назад

Предмет: Информатика, автор: nagibator5matvey

записать 2018 в 8 разрядном и в 16 разрядном в беззнаковом формате

5 лет назад

Предмет: Литература, автор: Angelina8232

на какие строчки произведения ночь пред рождеством это иллюстрация?

5 лет назад

Предмет: Математика, автор: alviagaev6

помогите пожалуйста!я непонимаю

9 лет назад

Предмет: Информатика, автор: nastyamagma

СРОЧНО!! ПАСКАЛЬ!! 20 Б
Измените текст программы примера так, чтобы решалась следующая задача:
Есть информация по студентам (фамилия, курс (1-5), 5 оценок за последнюю сессию). Вывести через запятую фамилии первокурсников, которые имеют средний балл, больший или равный 4.
Program pr2;
Type student = record {объявление нового типа данных student}
LastName: string ; {фамилия студента}
bal: array [1..5] of integer; {массив для 5-ти оценок}
average: real {средний балл студента}
end;
Var pupil: array [1..100] of student; {массив pupil (максимум из 100 элементов) типа student}
n,i,j,s : integer; {переменные целого типа}
Begin
write ('Введите количество студентов: ');
readln(n);
For i:=1 to n do begin {запрос данных по n студентам}
with pupil[i] do begin
Write ('Введите фамилию студента №', i ,': '); {запрос фамилии студента под номером i}
Readln (LastName);
s:=0; {целочисленная переменная для определения суммы баллов студента}
For j:= 1 to 5 do begin {цикл для обработки 5-ти оценок каждого студента}
write ('Введите оценку за экзамен №:', j, ': ' );
readln (bal [j] );
s := s+ bal[j]; {суммирование 5-ти оценок студента}
end;
average:= s/5; {определение среднего значения и запись в переменную average}
end;
end;
writeln;
writeln ( 'Студенты, имеющие средний балл больший или равный 4');
For i:=1 to n do begin
if pupil[i].average >=4 then {если средний балл студента >=4}
writeln (pupil[i].LastName, ' (средний бал ', pupil[i].average:4:1, ')'); {то вывод на экран
фамилии студента и его среднего балла}
end;
end

9 лет назад