ЗАДАНИЯ В ФАЙЛЕ МНЕ СКОРО СДАВАТЬ УЖЕ
язык phyton




Название: Информатика и ИКТ, рабочие тетради 2-4 классы
Номер: Н.В. Матвеева, Е.Н. Челак, Н.К. Конопатова, Л.П. Панкратова, Н.А. Нурова
Год: 2010-2012
Жанр: рабочие тетради

Формат: DjVu
Страниц: от 58 до 114

Описание: 
Рабочие тетради для 2-4 классов (каждый класс в 2-х частях) входят в состав УМК по информатике и ИКТ для начальной школы (2-4).
УМК обеспечивают пропедевтическое обучение информатике, цель которого - сформировать представление учащихся об основных понятиях информатики на основе их личного опыта и знаний, полученных при изучении других школьных дисциплин, а также развить начальные навыки работы на персональном компьютере.

Var
  s,sd,sm,sy:string;
  d,m,y,err:integer;
begin
  Write('Введите текущую дату в формате дд/мм/ или дд.мм.: ');
  Readln(s);
  if Length(s)<>10 then Writeln('Неверный ввод')
  else begin
    sd:=s[1]+s[2]; Val(sd,d,err);
    sm:=s[4]+s[5]; Val(sm,m,err);
    sy:=Copy(s,7,4); Val(sy,y,err);
    if err>0 then Writeln('Неверный ввод')
    else begin
      if d<28 then d:=d+1
      else begin
        case m of
        1,3,5,7,8,10,12:
          if d<31 then d:=d+1
          else begin d:=1; m:=m+1 end;
        2:
          if (y mod 4)=0 then
            if d=28 then d:=29
            else begin d:=1; m:=3 end
          else begin d:=1; m:=3 end;
        else
          if d<30 then d:=d+1
          else begin d:=1; m:=m+1 end
        end
      end;
      if m>12 then begin m:=1; y:=y+1 end;
      Str(d,sd); if Length(sd)=1 then sd:='0'+sd;
      Str(m,sm); if Length(sm)=1 then sm:='0'+sm;
      Str(y,sy);
      s:=sd+'.'+sm+'.'+sy;
      Writeln('Завтра будет '+s)
    end
  end
end.