102,104,106,108,112,114,116,118,132,134,136,138,142,144,146,148,152,154,156,158,162,164,166,168,172,174,176,178,182,184,186,188,192,194,196,198,202,204,206,208,212,214,216,218,222,224,226,228,232,234,236,238,242,244,246,248,252,254,256,258,262,264,266,268,272,274,276,278,282,284,286И тогдалие просто меняйте первую цифру на 3,4,5,6,7,8,9. и так до 1000,но 1000не пишите
1. a; c 2. write(); writeln(). Пример: write(c) /поясняю: ln добавляется для перехода на следующую строку при выводе/ 3. Ошибка - в строке "writeln(введите значения переменных m и n);" не указана переменная k. Так же не нужны кавычки в выводе, а при вводе необходимы. Исправление: program prim_a; var m, n, k: integer;
begin writeln('введите значения переменных m, n и k'); read(m,n, k); writeln((m+n+k)*5); end. 4. a) program plowad; var a, h: real;
begin writeln('Введите основание треугольника и высоту'); readln(a, h); writeln('Площадь треугольника равна ', a*h/2); end. 5. program proizvedenie; var a, b: integer;
begin writeln('Введите двузначное число'); readln(a); b:=a mod 10; a:=a div 10; writeln('Произведение цифр двузначного числа равно ', a*b); end.
dim years years = inputbox("Введите ваш возраст") if years = 1 then msgbox("Мне 1 год") end if if years = 2 then msgbox("Мне 2 годa") end if if years = 3 then msgbox("Мне 3 годa") end if if years = 4 then msgbox("Мне 4 годa") end if if (years >= 5) and (years <= 19) then msgbox("Мне "+cstr(years)+" лет") end if
if years >= 20 then dim s s = "Мне "+cstr(years) if (years mod 10 = 1) then s = s + " год" end if if (years mod 10 >= 2) and (years mod 10 <= 4) then s = s + " годa" end if if (years mod 10 >= 5) and (years mod 10 <= 9) then s = s + " лет" end if if (years mod 10 = 0) then s = s + " лет" end if msgbox(s) end if
102,104,106,108,112,114,116,118,132,134,136,138,142,144,146,148,152,154,156,158,162,164,166,168,172,174,176,178,182,184,186,188,192,194,196,198,202,204,206,208,212,214,216,218,222,224,226,228,232,234,236,238,242,244,246,248,252,254,256,258,262,264,266,268,272,274,276,278,282,284,286И тогдалие просто меняйте первую цифру на 3,4,5,6,7,8,9. и так до 1000,но 1000не пишите