1) Не хватка мощностей компьютера, либо он сильно загружен в данный момент, либо он серьезно "засран".
2) У вас скорее всего закончилось свободное место на диске. Рекомендую вам почистить диск в ручном или же в автоматическим режиме. А также можно купить еще один диск.
//Pascal ABC.NET v3.0 сборка 1111
var
a:integer;
begin
a:=0;
while a<>20 do
begin;
a:=a+2;
write(a:4);
end;
<span>end.</span>
program z1;
var a,m,n:integer;
begin
writeln ('введите трехзначное число ');readln(a);
writeln ('введите число m ');readln(m);
if (a mod m)=0 then writeln ('числа кратные m',a) else writeln('не кратны');
if ((a mod 10)=3)or(((a div 10)mod 10)=3)or((a div 10)=3) then n:=n+1;
writeln('количество чисел содержащих число 3',n);end.
Ответ:Как то так
Объяснение:
m = int(input("Введите месяц: "))
d = int(input("Введите день: "))
while d <= 31:
print("Месяц: " + str(m),"День: " + str(d))
d += 7
if m == 9 and d > 30:
m = 10
d -= 30
if m == 10 and d > 31:
m = 11
d -= 31
if m == 11 and d > 30:
m = 12
d -= 30
if m == 10 and d > 31:
m = 11
d -= 31
if m == 11 and d > 30:
m = 12
d -= 30
if m == 11 and d > 30:
m = 12
d -= 30
Если ты имеешь ввиду pascal, то:
<span>Real(вещественный тип)(например числа 2,5; 3,09 и т.д.)
</span><span>Integer(<span>целый тип)(например числа 10,20,100 и т.д. от </span></span><span>-32768 до 32767</span><span>)
</span><span>Char(символы)(буквы,тут думаю понятно)
</span><span>Boolean(логическая переменная)(true или false)
</span><span>String(переменная строки(то есть грубо говоря </span>последовательность из определенного количества символов)
я думаю эти типы данных до 10-11 знаете
<u>Это ПРОСТЫЕ.
</u>Также есть целочисленные типы, числа с плавающей запятой, п<span>орядковые типы.
</span><span><em>Структурированные:</em>
</span>Массив, строки, запись, множества, файлы. <u>
</u>