1. Создаешь папку BOX
2.В папке BOX папку LETTER
3. В папке LETTER создаешь текстовый документ peter.txt и kate.txt
4.В папке LETTER создаешь папку WORK
5. В папке WORK создаешь текстовый документ april.txt и may.txt
6. В папке LETTER создаешь папку FREND
7. В папке FREND создаешь папку SCHOOL
8. В папке SCHOOL создаешь текстовый документ mary.txt
9. В папке FREND создаешь текстовый документ sport.txt
begin
var a := 123456;
var s := a.ToString;
var Sum := s.Aggregate(0, (s, x) -> s + x.toDigit);
Print(Sum, Sum / s.Length)
end.
#include <iostream>
using namespace std;
int main()
{
int x, a, p;
cin >> x;
a = x / 2000 + 1;
p = ????????????;
cout << a << " " << p;
getchar();
getchar();
return 0;
}
Вроде так(я просто в пятом классе и недавно начал изучать программирование)
// PascalABC.NET 3.0, сборка 1150 от 22.01.2016
var
m,n:integer;
begin
Write('Введите М и N: '); Read(m,n);
if m<>n then begin m:=0; n:=1 end
else begin m:=2*m; n:=2*n end;
Writeln('m=',m,', n=',n)
end.
<u><em>Тестовые решения:</em></u>
Введите М и N: 5 7
m=0, n=1
Введите М и N: 4 4
m=8, n=8