ответ:
var
str: string;
i, count: integer;
begin
write('your string: ');
readln(str);
i : = length(str);
if i > 0 then begin
count : = 1;
while i > 0 do begin
if str[i] = ' ' then
count : = count + 1;
i : = i - 1;
end;
end
else
count : = 0;
writeln('number of words: ', count);
readln;
end.
объяснение:
Відповідь:
Пояснення:
//Реализация задачи №1 "A+B" на C
#include < stdio.h >
long a,b;
int main(){
freopen("input.txt","r",stdin);
freopen("output.txt","w",stdout);
scanf("%ld%ld",&a,&b);
printf("%ld",a+b);
return 0;
}
7
{Реализация задачи №1 "A+B" на Pascal}
var a, b : longint;
begin
assign(input, 'input.txt'); reset(input);
assign(output, 'output.txt'); rewrite(output);
read(a, b);
write(a + b);
end.
//Реализация задачи №1 "A+B" на Java
import java.util.*;
import java.io.*;
public class Main{ //имя класса должно быть Main
public static void main(String[] argv) throws IOException{
new Main().run();
}
PrintWriter pw;
Scanner sc;
public void run() throws IOException{
sc = new Scanner(new File("input.txt"));
int a=sc.nextInt(), b=sc.nextInt();
pw = new PrintWriter(new File("output.txt"));
pw.print(a+b);
pw.close();
}
}
'Реализация задачи №1 "А+В" на Basic
open "input.txt" for input as #1
open "output.txt" for output as #2
input #1,a#,b#
print #2,a#+b#
close #1
close #2
