Ребят, которые шарят в С написать программу. Очень нужна Напишите программу, которая создает файл f1, в котором по сравнению с файлом f все найденные числа будут заменены следующей цифрой после модуля 10, то есть 0-> 1, 1-> 2, 2-> 3, ..., 9- > 0
105
452
Ответы на вопрос:
a1
program a1;
uses graphABC;
var i:integer;
begin
SetWindowSize(400,400);
for i:=0 to 7 do
begin
line(0,50*i,50*i,0);
line(400,50*i,50*i,400)
end
end.
b1
program b1;
uses graphABC;
var i:integer;
begin
SetWindowSize(400,400);
for i:=0 to 7 do
begin
line(50*i,0,400,400-50*i);
if i <> 0 then line(0,50*i,400-50*i,400)
end
end.
a2
program a2;
uses graphABC;
var i:integer;
begin
SetWindowSize(400,400);
for i:=0 to 7 do
begin
line(0,50*i,50*i,0);
line(400,50*i,50*i,400);
line(50*i,0,400,400-50*i);
if i <> 0 then line(0,50*i,400-50*i,400)
end
end.
b2
program b2;
uses graphABC;
var i:integer;
begin
SetWindowSize(400,400);
for i:=1 to 7 do line(50*i,0,50*i,400);
for i:=1 to 7 do line(0,50*i,400,50*i)
end.
Объяснение:
используем циклы с параметром
Популярно: Информатика
-
Tomrico1104.12.2021 12:56
-
жанна42510.05.2023 09:14
-
Юля545106.04.2021 12:50
-
Marina5254710.11.2020 15:29
-
1508231.12.2021 02:26
-
BrainNotBrain06.12.2021 07:46
-
АндрейПермь12317.01.2020 17:09
-
rudnevskaya200428.01.2023 05:20
-
Камилия31112.04.2023 14:12
-
superegr04.06.2020 07:35