Готово.....................
1.
var s:string; m1,m2,m3:integer;
begin
writeln('- Привет! Я компьютер, а как тебя зовут?');
write('- '); readln(s);
writeln('- ',s,', введи свои оценки по 3 предметам');
write('- '); readln(m1,m2,m3);
writeln('- ',s,', твой средний балл ', (m1+m2+m3)/3);
end.
Пример:
- Привет! Я компьютер, а как тебя зовут?
- Алёна
- Алёна, введи свои оценки по 3 предметам
- 4 4 4
- Алёна, твой средний балл 4
2.
var a,b:integer;
begin
write('a = '); readln(a);
b:=(a div 100)*100 + (a mod 10)*10 + (a div 10 mod 10);
writeln('b = ',b);
end.
Пример:
a = 123
b = 132
//Dev-C++ 4.9.9.2
#include <iostream>
using namespace std;
int main(){
int n,k=0;
for(int i=0;i<10;i++){
cin>>n;
if((n%3==0)&&(n%4!=0))k++;}
cout<<k;
cin.get();
cin.get();
return 0;
}
Пример ввода:
2
5
34
4
16
3
8
0
23
67
Пример вывода:
1
I = 20 байт = 20 * 8 = 160 бит
n = 160/16 = 10
Получается слово занимает 10 символов (Не забываем про пробел и запятую ⇒ 10-2=8 символов - из этого кол-ва состоит слово)
Ответ: ласточка
Var
a:array[1..10] of integer;
b,i,k:integer;
begin
Randomize;
Write('Введите количество элементов в массиве: ');
for i:=1 to 10 do
begin
a[i]:=Random(21)-10;
Write(a[i],' ')
end;
Writeln;
Write('Какое число искать? ');
Readln(b);
k:=0;
for i:=1 to 10 do
if a[i]=b then Inc(k);
Writeln('Число встречается ',k,' раз')
end.
Подробнее - на Znanija.com -
znanija.com/task/29303328#readmore